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WER MACHT UND MACHTE WAS ? 


Am Betriebssystem RTOS-UH wirkten mit: 


Prof. Dr.-Ing. W. Gerth, Hannover: 
PEARL-Compiler 
UH-Assembler 
Nukleus 
System-Shell 
Lader 
Editor 
Hyperprozessor (Ohne Float-arithnm.) 
UH-Filemanager, ED-Filemanager 
Implementierungsscheiben: ELTEC, GWK, FORCE. 


Dipl.-Ing. R. Hausdörfer, Hannover: 


Float-arithmetik im Hyperprozessor 


Dipl.-Ing. R. Arlt, Hannover: 
UH-Filemanagererweiterung 'hierarchisch' 
UH-Filemanager-hardwaresektion für ATARI+FORCE WFC 1 
Winchesterfilehandler für FORCE WFC 1 und ATARI 
FTN-77 Compiler 


cand. ing. K. Koerth, Hannover: 


Atari-Implementierungsscheibe. 
Atari-Graphik-Hilfsfunktionen. 


cand. ing. A. Domeyer, Hannover: 


Atari-Implementierungsscheibe, Monitoranpassung. 


Dipl. Ing. B. Kroll, Hannover 


Atari-Basisgraphikfunktionen (Farbe) 
Binär READ/WRITE 


Hannover: 


U. Bartels 


MATH-package. 


Dipl. Ing. A. Hadler, Hannover: 


Implem. Scheibe Commodore Amiga 


Real-Time-Operating- Syesen Unzyeusueat Hannover. Vorwort. 
%---.- k-- - - k- --- -- -- -i----.-.-. 00. Kk=------------ 0. 


RTOS-UH wurde am Institut für Regelungstechnik der Universität 
Hannover entwickelt. Gemäß der Zielsetzung des Institutes ent- 
stand ein Multitasking-Echtzeit-Betriebssystem für Probleme der 
modernen Prozeßautomatisierung. Dabei wurde ganz bewußt der 
Schwerpunkt auf Laufzeiteffizienz und Kompaktheit gelegt. Nach 
meiner Vorstellung sollen damit fertige in Hochsprache (PEARL) 
codierte Hochleistungs-Automatisierungs-Systeme für ganz unter- 
schiedliche Rechnersysteme realisiert werden - und zwar von 
Fachleuten, denen die parallele Programmbearbeitung geläufig ist! 


Die große Stärke dieses Systemes liegt in der Vielzahl von Com- 
putern, auf denen es inzwischen läuft, vom teuren VME-System bis 
zum preiswerten Personalcomputer, ja sogar auf Single-Eurokarten 
mit 68008-Prozessor existieren Varianten von RTOS-UH! 


Soweit es ging, wurde auch ein Mindestmaß an Komfort berücksich- 
tigt. Es sollte jedoch nie vergessen werden, daß der Komfort 
eines Interpr ersystemes (mit ca. 10-fach langsamerer Ablauf- 
geschwindigkeit) mit Compilern kaum zu erreichen ist. 


Es gibt das Betriebssystem RTOS-UH seit 1980. Seit etwa Herbst 
1984 haben wir es an Interessenten für den Preis der Selbst- 
kosten ausgeliefert. Nunmehr (Dez. 1986) dürften etwa 2000 
legitimierte Kopien existieren. Einige davon befinden sich in der 
Hand von Heimcomputernutzern. Inzwischen werden viele schon be- 
merkt haben, daß sich Basic- oder Pascalprogramme mit etwas Übung 
direkt in PEARL umsetzen lassen. Damit erkennt man jedoch nur den 
klassischen Single-Taskbereich, die eigentliche Intention sowie 
Leistung unseres Systemes erkennt man nur beim Multitasking. 


Zum Einstieg haben wir einen Miniaturschnellkurs vorbereitet und 
dazu gleich eine fiktive Multitaskingaufgabe genommen. Sie finden 
die Informationen unter A-I. 


Mit dem System ist mit kleineren Einschränkungen auch ein Mehr- 
nutzerbetrieb möglich. Man muß sich allerdings dazu klarmachen, 
daß der Prozeßumschalter von RTOS-UH nur ereignisgesteuert mit 
festen Prioritäten arbeitet. Es gibt keine Zeitscheiben oder 
ähnliches, die das System für die Prozeßautomatisierungs-Aufgaben 
schwerfällig machen. Dafür kann ein 'Dauerrenner' mit hoher 
Priorität und ohne Wartezustände durchaus andere Nutzer völlig 
paralysieren. Mit Hilfe der Funktion 'SHARE' können allerdings 
auch gleichpriorisierte Tasks im Timesharing laufen. 


Zum Schluß noch eine dringende Bitte: 


Wir sind nur eine sehr kleine Gruppe und können naturgemäß nicht 
mit den großen Softwarefirmen konkurrieren. Es ist uns daher auch 
nicht möglich, selbst einen Beratungsdienst bereitzustellen. Sie 
sollten sich mit Fragen an Ihren Lieferanten wenden, der sich in 
kniffligen Fällen bei uns melden wird. 


Für die Mitteilung (mit Beispiel) echter Systemfehler sind wir in 
jedem Fall dankbar, damit diese schnellstmöglich abgestellt wer- 
den können. 


Uni Hannover, Prof. Dr.-Ing. W.Gerth, im Dezember 1986. 
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Einschalten. 
Systeme mit Monitorprogramm erwarten nach Meldung des Monitors 
die Eingabe von 'RTOS', andere starten RTOS-UH ohne Aufforderung. 


Es dauert bis zu 20 Sekunden bevor überhaupt etwas auf dem Sicht- 
gerät passiert. In dieser Zeit konfiguriert sich das Betriebssys- 
tem (Automatic linking) an Hand der im E-PROM oder Bootbereich 
zusammengestellten Systemkomponenten. Passiert auch nach längerer 
Zeit nichts, so muß die Hardware (Terminal auf 9690 Baud?) unter- 
sucht werden. Ansonsten erscheint die Kopfzeile mit Konfigura- 
tions- und Lizenzhinweisen, abgeschlossen mit der Meldung RESET. 
Wann immer RESET erscheint, handelt es sich um einen sogenannten 
'"Kaltstart'. (Das bedeutet später, daß alles zum Teufel ist..) 


Erste Aktion. 

Bevor sich nun bei CP/M-Freunden Enttäuschung breitmacht, weil 
bei Anschlag der Tastatur gar nichts p rt, sollte man sich 
mit der ersten Besonderheit von RTOS-UH vertraut machen: Wir als 
Nutzer sind nicht die Herrscher im System sondern eher nur ein 
von Zeit zu Zeit störendes externes Ereignis, auf das es priori-, 
tätsgerecht reagieren wird. 


Was aber tut er zur Zeit? Der Prozeßumschalter hat festgestellt, 
daß die einzige lauffähige "Task' die Leerlaufaktivität #IDLE 
ist und läßt diese "arbeiten'. IDLE ist immer lauffähig. 


Um ihn von seiner geliebten IDLE-task zu trennen, fabrizieren wir 
einen Interrupt durch Anschlag von 


Ctrl A oder Ctri B oder Ctrl C oder 'Break' (Undo bei Atari). 


Mit Ausnahme von Break/Undo, dort dauert es 2 sek., erscheint so- 
£fort nach Anschlag der Prompt '*' und zeigt Eingabebereitschaft 
an. 


----) Wann immer wir Bedienfunktionen des Rechners benötigen, 
muß eine der obigen Tasten, etwa Control A, angeschlagen 
werden. 


Mit dem Erscheinen des Sternes, übergibt der Dispatcher (Prozeß- 
umschalter) gleich wieder an IDLE. Dennoch können wir jetzt eine 


Eingabe machen. Wir sind nämlich mit dem Bedieninterpreter 
(Shell) des Systemes verbunden. 


----) Die Sprache des Interpreters darf nicht verwechselt werden 
mit einer PEARL-Programnierung, auch wenn es viele ganz 
ähnliche oder gar gleiche Anweisungen gibt. 


Die nun zulässigen Eingaben sind in B-I bzw. B-II beschrieben. 
Wir wählen das Kommando 


L (List all Tasks) 


und schließen es mit Carriagereturn ab. 
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Möglich wäre etwa folgende Liste: 


00001986 +FFF/O RUN TWS=00000D36 PC=00081192 #IDLE 

00001908 -001/8 DORM TWS=00000D92 PC=00000000 H#EDFMN 
00001A1A -O0A/O SCHD TWS=D0000E00 PC=00081DEC #ERROR 
v0001A64 -002/® DORM TWS=B0000ESC PC=00000000 #VDATN 
O0001AAE -007/0 RUN TWS=00000EB8 PC=00082C84 #USER® 
00001AF8 -006/1 DORM TWS=000010CE PC=00000000 #USER1 
00001B42 -092/® DORM TWS=000012E4 PC=00000000 #XCMMD 
00001B8C -001/0 DORM TWS=D00014FA PC=0008CY9A0 #UHFX6 
00001BD6 -005/0 RUN TWS=000016B0 PC=0008F4A8 HACIA1 
B0001C20 -005/0 DORM TWS=00001716 PC=00000000 #ACIA2 


Dabei bezeichnet die erste Adresse den Ort, an dem der sogenannte 
'Taskkopf' im verwalteten RAM zu finden ist. In der zweiten Spal- 
te finden wir Priorität/Usernumner des Prozesses. Negative Pri- 
oritäten sind für den Hochsprachprogrammierer unerreichbar hoch. 
Der angezeigte Laufzustand (RUN, DORM, SUSP etc.) ist beim 'L'- 
Kommando genauer beschrieben. 


Groß oder klein? 

Im Gegensatz zum PEARL-Compiler akzeptiert der Bedieninterpreter 
alle Kommandos sowohl in Groß- als auch in Kleinschreibung. Aber 
man beachte dabei, daß Filenamen immer gleich geschrieben werden 
müssen! Groß definiert - groß referenziert. 


Nun können wir z.B. den Befehl 'S' eingeben (natürlich erst nach 
erneutem Anschlag von Ctrl A !) und sehen, wie der verwaltete 
Speicherbereich aufgeteilt ist. 


PEARL-Programmentwicklung. 

Folgende Aufgabe sei angenommen: Ein Rechenprozeß ('Task') soll 
fortwährend die Zahlen 1.0, 2.0, 3.0, 4.0, etc. sowie deren 
Kehrwerte und Quadrate ausgeben. Ein zweiter unabhängiger Rechen- 
prozeß soll jede Sekunde in einem File notieren, welcher Wert ge- 
rade bearbeitet wird und den ersten Prozeß nach 100 Sekunden an- 
halten. 


Festlegung eines 'Working-directories' ('WD'). 
Um für den Editor, Compiler, Lader einfachere Ansprechwege zu er- 
schließen, geben wir den Befehl 'Change directory': 


CD ED:; (Der Doppelpunkt bedeutet: 'ED' ist eine Datenstation) 
(Nur vorläufig wird auch noch der Punkt akzeptiert) 


in den Bedieninterpreter. (Nach Ctrl A, Sie wissen schon....) 
Der Befehl wird vom System mit WD=ED:- bestätigt. Die Vereinba- 
rung bleibt bis zum neuen CD-Befehl oder Kaltstart erhalten. 


Einloggen in den Editor. 

Wir geben das Kommando ED (nach Ctrl A!) ein und finden uns im Nu 
im Bildschirmeditor des Systemes wieder. Der Filename wurde vom 
System 'defaultiert', wir können (s. 'ED'-Kommando) aber auch ei- 
nen frei gewählten Filenamen wählen, etwa ED TEST. 
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Erscheint ein chaotisches Bild, so geben Sie gleich die Zeichen 
ESC X (nacheinander anschlagen, ohne Ctrl A) ein, um den Editor 
sofort wieder zu verlassen. Wir versuchen eine Umparametrierung 
mit Hilfe des Bedieninterpreters: 


SD Al:+1 01 oder SD Al:+1 02 oder SD Al:+1 03 


und loggen erneut mit ED (bzw. ED TEST) in den Editor ein. Hilft 
auch das nicht, so muß ggf. das Terminal auf den Televideo oder 
VT-52 kompatiblen Mode umgestellt werden. Standardmäßig ist der 
Editor auf den Televideo-typ eingestellt. Solange wir im Editor 
sind, ist übrigens der Zugang zum Bedieninterpreter verwehrt, 
weil die Zeichen Ctrl A,B,C vom Editor abgefangen werden. Nur 
Break/Undo ist für den größten Notfall, wenn man sich total ver- 
franst haben sollte, noch aktivierbar. (Oder:Abort-taste der CPU) 


Wir löschen die erste Zeile mit ESC R (B-Ii: ED) und geben &in: 


MODULE PROBE; /* Bezeichner sind 24 Zeichen lang*/; 
SYSTEM; /* Leitet Definition der tenstationen ein */; 
Disp: AL<->3; /* Datenstation der Ein-Ausgabe */; 
File: ED.Daten->; /* File zum Sammeln der Daten */; 
PROBLEM; /* Leitet den Hardware-unabhängigen Teil ein #/; 


SPECIFY Disp DATION INOUT ALPHIC CONTROL (ALL); 
SPC File DATION OUT ALPHIC CONTROL (ALL); 


DCL Ausgabenummer FIXED; /* Zähler für Anzahl Ausdrücke#/; 
DCL (x,Leer) FLOAT; /* Aktuelles Argument, Leerzyk*/; 
DCL Erstesmal BIT(1); /* Für Startvorgang *“/; 
Se */; 
Machs:TASK PRIO 50; /* Ausführende Task */; 
x=1.0; /* Startwert setzen /; 
REPEAT; /* Unbegrenzte Wiederholschleife */; 
PUT x, x*x, 1.0/x TO Disp BY SKIP, (2)F(20) ,E(20,7); 
x=x+1.0; 
END; /* Schleifenende */ 


’ 
END; /* Ende der Task Machs */ ; 


7. 
Steuer:TASK PRIO 49; /* Überwachende Task “/ 
IF Erstesmal THEN ACTIVATE Machs; 
Ausgabenummer=1; 
Erstesmal=NOT Erstesmal; 
FIN; /* Ende I£f-Bereich *%/; 
PUT Ausgabenummer ,x,Leer To File BY F(8), (2)F(20),SKIP; 
IF Ausgabenummer EQ 100 THEN TERMINATE Machs; 
PREVENT Steuer; 


FIN; 
Ausgabenummer=Ausgabenummer+1; 
END; /* Ende der Task Steuer */; 
/* ..- -----  --- 2-2 nn * 


Rest: TASK PRIO 100 /* Niedrige Prio f.Restkapazitätsmessung * 
REPEAT Leer=Leer+1.0; END; END; /* Keine Wartephasen * 
/* =. n--- - - 12. 2-27. 777772777 * 
start:TASK PRIO 48; /* Start-Task */; 
Erstesmal='1'B; Leer=0.0; 
ALL 1 SEC ACTIVATE Steuer; ACTIVATE Rest; 
END; /* Ende der Start-Task */ 


MODEND; Ende des Modules. 
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Wir verlassen den Editor mit ESC X (nacheinander!), retten evtl. 
den File auf Floppy (s. nächste Seite). Dann aktivieren wir die 
Bedientask (Ctrl A...) und starten den Compiler: 


P (Carriagereturn) PEARL kompilieren (Default-file ED:SI) 
P TEST (Carriagereturn) Editierter Filename war TEST. 


Bei dieser Parametrierung erzeugt der Compiler das Übersetzungs- 
protokoll auf unserem Terminal. Genaueres über weitere Parameter 
(Kein Protokoll etc.) finden Sie unter B-II 'PEARL'. Schon nach 
wenigen Sekunden ist das Programm übersetzt. Falls es Tippfehler 
gegeben hat - der Compiler zeigt sie uns an- so müssen wir wieder 
in den Editor einloggen mit ED bzw. ED TEST. Das korrigierte Pro- 
gramm wird dann erneut übersetzt. 


Wenn der Compiler nichts anzumeckern hatte, so können wir nun das 
ganze Modul in den Speicher laden: (CtrlA .....) 


LOAD (Carriagereturn) Objektcode-Filename wurde defaultiert. 


Sofort meldet der Lader, daß er fertig ist und wir geben das Be- 
dienkommando: (Ctrl ...) 


LU (Carriagereturn) List User-Tasks. 


Nun erhalten wir eine Liste, in der unsere 4 Tasks aufgeführt 
sind. Um das Programm in Gang zu bringen, müssen wir nur noch die 
Task 'start' aktivieren: (Uff, Ctrl A - schon wieder ..) 


start (Carriagereturn) Wo es keinen solchen Bedienbefehl gibt, 
wird die gleichnamige Task gestartet. 


Jetzt rasen Zahlen über den Bildschirm, aber nach 109 Sekunden 
ist alles wieder ruhig. Wir schauen uns den File "'Daten' mit 
Hilfe des Editors an: (...) 


ed Daten (Carr.return) oder ed ed:Daten falls kein WD vereinbart 


Es ist zu erkennen, daß die Task 'Rest' offensichtlich wesentlich 
mehr (100 bis 300 mal!) Runden drehen konnte als die doch viel 
höher prioritierte Task 'Machs'. Die Ursache liegt in einem ver- 
borgenen Wartezustand von 'Machs': Das Terminal ist zu langsam 
und nach einer gewissen Anzahl Zeilen ist der Zwischenpuffer im 
RTOS-UH voll. Dann bremst RTOS-UH die Task 'Machs' mit der Folge, 
daß der wartezustandfreie Rechenprozeß 'Rest' blendend bedient 
werden kann. Wenn Sie jetzt staunen, dann haben Sie ein System 
mit emuliertem Terminal. Bei solchen Systemen kommt 'Rest' nicht 
von der Stelle, weil die CPU voll fürs Malen beansprucht wird!! 


Jetzt können Sie mit dem Programm ein paar Experimente machen, so 
können wir z.B. die Ausgabe aus 'Machs' entfernen wollen um dann 
den Versuch zu wiederholen. Dazu müssen wir zunächst unser Modul 
aus dem System entfernen. (Nebenbei: 'Rest' geht's inzwischen noch 
blendender, sie läuft und läuft..) Das Entfernen dieses Modules 
erledigen wir mit: 


UNLOAD PROBE* (Carr.return) ('%' = "Inklusive aller Tasks') 
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Unschön, wenn wir mal den Stern vergessen haben sollten. Dann 
müssen wir nämlich anschließend jede einzelne Task namentlich mit 
UNLOAD entfernen, z.B. Unload Machs ‚Rest, Steuer start (Carr.rtn) 


Wir loggen nun einfach erneut mit Ed bzw. mit Ed TEST in unseren 
Quellfile ein, ändern diesen, übersetzen ihn neu und laden ihn 
genau wie vorhin. Wichtig ist, daß wir vor dem Laden wirklich das 
Modul entfernt haben, ggf. mit dem LU-Befehl überprüfen, ob alle 
Tasks verschwunden sind. 


Bevor wir nun ein zweites Mal 'start' aktivieren, sollten wir den 
Ausgabefile 'Daten' zurücksetzen, z.B. mit 


Rewind Daten (Carr.-return) (Rewind ed:Daten falls ohne WD) 
oder durch Elimination des ganzen Files: 

rm Daten (Remove) oder erase Daten (gleichwertig) 

Sonst würden die neu produzierten Daten hinter die alten gesetzt. 


Jetzt können wir wieder die Task 'staı aktivieren. Damit ist 
ein kompletter Programmentwicklungszyklus abgeschlossen. 


Retten des Programmes auf Diskette. 

Jetzt darf kein Netzausfall passieren, sonst ist unsere ganze Mü- 
he des Programmschreibens für die Katz gewesen. Aus diesem Grund 
legen wir nun eine Diskette (hier:Laufwerk ®) ein und formatieren 
sie neu: 


FORM D F0:B5DS80 (Carriagereturn) (siehe B-II 'FORM') 


Hier 'D' für Double density, 'B5' für das kompakteste 'B'-Format, 
'DS' für Double sided und '80' für 80 Tracks. Die Formatierungs- 
information wird beim 'FORM' wie ein Filename übergeben. 


Wir sind nun ausnahmsweise für eine ganze Weile aus dem System 
ausgeblendet, weil das Formatieren bei den meisten Systemen eine 
sehr zeitkritische Angelegenheit ist. Zunächst werden nacheinan- 
der beide Seiten beschrieben, dann wird nach defekten Blöcken ge- 
sucht (diese werden aus der Verwaltung gestrichen) und das Ergeb- 
nis wird auf dem Terminal ausgegeben. Bei mehr als 9 defekten 
Blöcken allerdings wird die Bearbeitung der Diskette abgebrochen. 


Nun können wir mit dem Befehl 

DIR FO: (carriagereturn) ( ':' geObt an: Kein File, sond. Gerät) 
nachsehen, wieviel Platz wir haben. Bei ELTEC-Rechnern ist es oft 
nur die Hälfte, weil der Jumper "doublesided' vergessen wurde. 
Jumper bzw. Brücke anbringen und neu formatieren. 


Das Retten unseres Programmes erledigen wir mit COPY: 


COPY ED:SI > FO:xyz (Defaultierter Filename für User 2). 
COPY TEST > FO:xyz (File-name war TEST). 
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Später können wir den File jederzeit wieder von der Diskette 
holen, etwa mit 


Copy fd:xyz > ed:TEST (Falls kein Working directory vereinbart) 
Copy £fO:xyz > Al: (Ausgabe auf dem Sichtgerät User ®) 


Files geschlossen?? 
Zur Einsparung von Diskettenoperationen wird, solange es geht, 
das Inhaltsverzeichnis und der aktuelle Datenfile teilweise im 
Speicher gehalten. Die Daten sind daher nur dann auf der Diskette 
gesichert, wenn alle Files vor dem Herausnehmen geschlossen sind. 
Geben Sie dem System eine Chance, prüfen Sie, ob Sie die Diskette 
herausnehmen oder den Rechner abschalten dürfen: 


CF FP: (Change Floppy, Meckert, falls ein File noch offen ist) 
FILES FP: Listet alle offenen Files auf, anschließend d mit 
RETURN fd:xyz,£fd:abcä ...... jeder einzelne File geschlossen oder 


SYNC FO:; CF FO:FORGET eingegeben. Nun erst Diskette entnehmen. 


Der Lader, Compiler, Copy etc. hinterlassen normalerweise keine 
offenen Files. Sie treten darum nur bei Unregelmäßigkeiten und 
abgebrochenen Programmen auf. 


Alles zur gleichen Zeit! 

Wenn Sie etwas experimentiert haben, so werden Sie schon bemerkt 
haben, daß unser System anscheinend tausend Dinge gleichzeitig 
erledigen kann. Sie können z.B. einen Copy auf die Schnittstelle 
A2: oder PP: (Centronics) in Gang setzen, und während die Ausgabe 
läuft, ungehindert das nächste Programm entwickeln. Bei anderen 
Systemen so gerühmte 'Spooler' sind bei dieser Struktur eigent- 
lich überflüssig. Man muß nur immer darauf achten, daß stets nur 
eine Operation pro File stattfindet, also nicht den gleichen File 
sowohl im Editor haben als auch gleichzeitig kompilieren oder ko- 
pieren! 

Dagegen können Sie ruhig während der Kompilation eines Files den 
Kompilationslauf eines anderen Files in Gang setzen oder diesen 
anderen editieren und vielleicht zwanzig andere assemblieren .... 


Noch etwas über den Bedieninterpreter. 

Bisher haben wir immer nur eine Anweisung in jeder Zeile benutzt. 
Wir können durchaus mehrere Anweisungen in eine Zeile schreiben 
und dabei festlegen, ob diese "'gleichzeitig' oder nacheinander zu 
erledigen sind: 


P TEST -- load -- start 
bedeutet: Kompiliere, wenn fertig (und ® Fehler!) lade, wenn mit 


laden erfolgreich fertig starte 'start'. Der Sinn der zeitlichen 
Kettung besteht darin, daß man vielleicht gerne mal irgendwohin 
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möchte und das Programm in Aktion sehen will, wenn man zurück 
kommt..... 


Dagegen werden bei dem Befehl 
pP TEST;COPY mist > A2:;COPY kaese > PP: 


gleichzeitig ein Compiler und zwei Kopiervorgänge laufen. Ohne 
'SHARE' hat der Compiler höhere Priorität, die beiden 'COPY' lau- 
fen nur mit den CPU-Restkapazitäten. Diese können (siehe unser 
Testprogramm) bei einer Protokollausgabe des Compilers allerdings 
so groß sein, daß beide Copy mit voller Geschwindigkeit voran 
kommen können. Nebenbei: A2: ist die Stationsbezeichnung für die 


zweite serielle Schnittstelle, PP: die Stationsbezeichnung für 
ein evtl. vorhandenes Parallelport (Centronics). (s. Seite 10). 
Fernsteuerung. 


Alle Befehle des Bedieninterpreters können auch von PEARL-Pro- 
grammen aus ausgeführt werden! Sie brauchen dazu nur den Einga- 
betext mit 'PUT' in die Systemdatenstation 'XC' (Remote-Control) 
einzuschreiben. Es ist immer eine nette Geste, wenn man im Rech- 
ner für den nächsten Nutzer eine Formatieranweisung zur Exekution 
um 16.00 Uhr o.ä. zurückläßt ..... 


SYSTEM; Bedien:XC; 

PROBLEM; SPC Bedien DATION OUT ALPHIC CONTROL (ALL); 
Batman:TASK; PUT 'FORM D F0:B5DS80' TO Bedien BY A,SKIP; END; 
MODEND; 


Nach dem Übersetzen und Laden geben Sie den Bedienbefehl 
AT 16.00 ACTIVATE Batman 


und gehen fröhlich pfeifend nach hause ... 

Ich hoffe nun doch sehr, daß Sie das nicht wirklich mal machen! 
Sinnvoll ist aber die Möglichkeit, sich Blockkommandos schaffen 
zu können, etwa ein Kommando 'Neu' als PEARL-Programm: 


Neu:TASK;PUT 'Unload PROBE*;ED--P--Load--start' TO Bedien;END; 


Nach dem Laden dieser Task braucht man nur noch jeweils den Be- 
fehl 'Neu' einzugeben (auch während Machs läuft!) und findet sich 
im Editor wieder. Sobald man diesen verläßt, wird kompiliert, ge- 
laden und gestartet. Geht's denn noch einfacher?? 


Weitere Nutzer. 

An anderen Terminals, die ebenfalls einen Bedieninterfaceanschluß 
besitzen, ist die Bedienung nicht anders. Allerdings sollte man 
bei mehr als einem Nutzer sich hierarchisch in das ED-Filesystem 
einloggen. Sonst riskieren Sie zufällige Namensgleichheit bei den 
Files. 


cD ED:Mueller 
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Mit z.B. ED TEST; wird nun mit voller Pathlist ED:Mueller/TEST 
adressiert. Wenn der andere Nutzer nicht auch Mueller heißt und 
sich unter anderem Namen einführt, ist sein File 'TEST' einer im 
anderen Zweig des Baumes. 


Das Konsolenterminal (User ®) hat allerdings vereinzelt doch ei- 
nen Sonderstatus, z.B. bei Fehlermeldungen in Interruptprozessen. 


Haben Sie eine Winchester? 

Dann sollten Sie Winch-files immer nur hierarchisch organisieren, 
sonst steht hinterher alles in der root-Ebene und Sie finden sich 
garantiert nicht mehr zurecht. Ein Directory müssen Sie jetzt 
aber explizit einrichten mit z.B. 


mkdir Hd:usr/mueller (Das Directory 'usr' existierte schon) 


Fortan können Sie etwa nach HO:usr/mueller/TEST schreiben oder 
von dort lesen. Greifen Sie häufiger darauf zu, so kann natürlich 
mit 


CD Hö:usr/mueller 


der Zugriff vereinfacht werden. Nur müssen Sie dann beim Editie- 
ren die ED-files über die volle pathlist ansprechen: 


Copy TEST > ED:ge/TEST--ed ed:ge/TEST--copy ed:ge/TEST > TEST 


Bei diesem Befehl wird der File von der Winch. geholt, editiert 
und anschließend wieder zurückgeschrieben. Nicht mehr hübsch? 


Rein und Raus? 
Auf den nächsten Seiten des Schnellkurses finden Sie noch einige 
Tabellen zu den Schnittstellen. Die Schnittstellen selbst sind 
einzeln unter A-II beschrieben. 


Unsere 'Teufelchen'. 

In allen komplexen Computersystemen lauern kleine Teufelchen und 
sind darauf aus, Ihnen Fallen zu stellen. Ganz am Ende dieses 
Schnellkurses haben wir deren übelste RTOS-UH-Tricks aufgelistet. 


Interessiert? 

Lesen Sie sich doch alle Befehle des Bedieninterpreters einmal 
durch (B-II). Sie finden dort die detaillierte Information, die 
hier keinen Platz fand. Einige Bedienbefehle haben Sie ja schon 
benutzt, wenn auch z.T. nur mit einem Teil der möglichen Parame- 
ter. Zu PEARL selbst? Siehe gesondertes Literaturverzeichnis. 


Unbedingt lesen sollten Sie die Abschnitte C-I bis C-VI, es be- 
trifft die Möglichkeiten des eigentlichen PEARL-Teiles. 


Der Erzeuger von RTOS-UH wünscht Ihnen viel Glück und Erfolg! 
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Schnittstellen ('DATION') im UH-PEARL Datenstationen 


Grundsätzlich existieren zwei Typen von Datenstationen, je nach- 
dem ob sie annähernd mit Prozessorgeschwindigkeit die Daten 
übertragen können oder nicht. 


* D/A-Wandler, Digitalkoppler etc. sind quasi jederzeit bereit. 
Sie werden darum nicht vom Betriebssystem als Betriebsmittel 
verwaltet, der Compilercode greift direkt darauf zu. 


* Terminalschnittstellen, Druckerports, Floppydiscs etc. sind 
langsamer als der Prozessor und werden daher nur unter Kon- 
trolle von RTOS-UH zugänglich gemacht. Die Bearbeitung erfolgt 
ähnlich wie am Postschalter: Es werden "Warteschlangen' auf- 
gebaut und nur das jeweils vorne befindliche Datenpaket wird 
zu einem Zeitpunkt bearbeitet. 


Die folgende Beschreibung gilt demnach nur für die Stationen des 
zweiten Types mit Warteschlangen. 


Zu jeder Station existiert eine Warteschlangennummer, 'LDN' ge- 
nannt ('Logical Dation-Number'). Benutzen mehrere anscheinend 
eigenständige Geräte (z.B. Floppy 0, Floppy 1) gemeinsame Bau- 
steine (Floppykoppler) so werden sie dennoch nur durch eine ein- 
zige LDN repräsentiert. Die einzelnen Geräte werden dann durch 
die sog. Untergliederungsnummer ('DRIVE') unterschieden. Oft 
wird die Untergliederungsnummer auch nur benutzt, um verschiedene 
Betriebsarten eines einzigen Gerätes anzuwählen. Die nächst fei- 
nere Unterteilung erfolgt durch den 'FILE-namen' oder noch genau- 
er durch eine baumförmige '"path-list'. 


Jede Warteschlange besitzt einen "Bediener', quasi der Beamte am 
Postschalter. . Wir nennen diesen Bediener 'Betreuungstask' der 
Warteschlange. Die Aufgabe der Betreuungstask besteht einfach nur 
darin, die Warteschlange möglichst schnell abzubauen. Wie im täg- 
lichen Leben so gibt es auch hier "ganz eilige Kunden', die sich 
frech nach vorne drängen, evtl. direkt bis zum Schalter. Wie weit 
man sich vordrängen kann, hängt von der Wichtigkeit des Auftrag- 
gebers ab: der Priorität der lese-/schreibwilligen Task. (Der Na- 
me der Betreuungstask ist für den Anwender uninteressant, er ist 
meist analog zur Gerätebezeichnung gewählt.) 


In PEARL-Programmen kann man nun den einzelnen Geräten frei wähl- 
bare Namen zuordnen. Das geschieht mit Hilfe des 'Systemteiles'. 
So bedeutet etwa 

XYZ:LD/5,3/.abed/efg - ; 


Die Station heißt 'XYZ', besitzt die Warteschlangennummer '5' und 


benutzt das Laufwerk no. '3'. Über das 'directory' namens 'abcd' 
wird der File 'efg' adressiert. Man beachte, daß die pathlist im 
UH-PEARL durch 'OPEN BY IDF..' veränderbar ist. Durch weitere Zu- 


sätze kann auch der Betriebsmode modifiziert werden. 
Stationen mit Warteschlangen werden bei PUT und GET benutzt. 
Für viele häufig benutzte Stationen gibt es im Bediensystem und 


im Compiler noch Fertignamen, zu denen LDN und DRIVE automatisch 
generiert werden, z.B. 'Al' für das Konsolenterminal = LD/0,0/. 
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mit dem Winch./Floppy-Interface 


nachkonfigurierten Dations. 
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geklammerte 


Nicht aufgeführte Systeme gemäß Aquivalenzangaben. 
hält natürlich nicht die evtl. 


gilt für den Fall der Bestückung 


WFC-1 von FORCE. 
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Teufelchen 1 


Hier erfahren Sie etwas über die hinterhältigsten Tricks der 
üblen Gesellen - soweit sie uns bekannt sind. 


Das Ctrl S - Teufelchen. Dieser Kamerad wartet nur darauf, daß 
Seen nn Sie aus Versehen statt Ctrl A einmal das 
Zeichen Ctrl S anschlagen. Dann kann er nämlich das Terminal tot- 
legen. Das Ctrl S ist an sich sehr notwendig, um etwa rasende 
Ausgaben anhalten zu können (X-off) - und dafür benutzen wir es 
ja auch absichtlich. Geben Sie dem Kerl eines auf die Nase und 
bieten Sie ihm Ctrl Q an (X-on), mehrmals schadet nichts. 


Das 'No-scroll'-Teufelchen. Es siedelt nur in einigen besonderen 
ET Terminals, die eine 'No scroll'-Tas- 
te besitzen. Oft hilft dann Ctr1 Q nicht, sondern nur die termi- 
nalseitige Aufhebung der No-scroll-Bedingung. 


Ein schwer zu bekämpfender Parasit, 
der den 'Beamten' am Postschalter 
befällt, er kann den aktuellen Auftrag nicht ausführen. Eine Task 
veranlaßt zum Beispiel eine Leseoperation ('GET') vom Terminal. 
Solange auf dem Gerät die erwartete Zahl von Zeichen nicht einge- 
geben wird, geht's in der Schlange nicht voran. Trotz der hohen 
Priorität kommt auch die Bedientask nicht durch. Scheinbar rea- 
giert das System auf Ctrl A nicht. Uns bleibt nichts anderes zu 
tun als Ctrl A anzuschlagen, evtl. die Daten einzugeben oder er- 
satzweise sooft die Carriagereturn-Taste zu betätigen bis der 
Eingabeprompt der Shell erscheint. 


Der Index-error-Teufel. Ja, dies ist kein ...chen, sondern die 
SRRS-Ia--2eesesneene Inkarnation der Teufelei schlechthin! 
Er kann wohl alles Mögliche an Schäden im System anrichten, von 
zerstörten Zeigern bis zu Systemabstürzen, die erst Stunden spä- 
ter auftreten. Gegen ihn gibt es nur eine Waffe: Die '"T'-Option 
des PEARL- oder F77-Compilers. Damit wird der unerlaubte Zugriff 
durch überschrittene Indexgrenzen in fast allen Fällen verhin- 
dert. Hat der Bold aber bereits zugeschlagen, sollten Sie von 
Ihren Files retten, was zu retten ist und die RESET-Taste akti- 
vieren. 


Das Bus-error-Teufelchen. Wenn Sie mit 'DM' (s.B-II) einen nicht 
u tan El tn bestückten Speicherbereich ausgeben 
wollen, so erfolgt die Meldung "BUS ERROR' und die Bedientask 
stellt anscheinend ihre Tätigkeit für Sie ein, denn nach jedem 
Ctrl A gibt's gleich wieder einen Fehlerabbruch. Nun könnte man 
sooft Ctrl A anschlagen wie insgesamt nicht erreichbare Bytes 
ausgegeben werden sollen. Hier hilft es aber viel besser, wenn 
Sie die BREAK/Undo-Taste betätigen. 


Das boppellade-Teufelchen. Seine Spezialität besteht darin, uns 
Enten sn nenn sende zu einem unüberlegten LOAD-Befehl zu 
verführen, obwohl eine gleichnamige Task noch in der Verwaltung 
existiert. Mit jeder Aktivierung der Task erwischen wir dann im- 
mer nur die erste (meist alte) und wundern uns, daß Programmän- 
derungen ohne Wirkung geblieben sind. Wir sollten darum stets si- 
cher gehen, daß Doppelladen nicht auftreten kann. 
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Bei diesen Stationen handelt es sich entweder um emulierte Termi- 
nals oder um serielle Schnittstellen (RS 232c, RS 458 etc.). Für 
Ay,By,Cy gilt - bei gleichem y - stets eine gemeinsame LDN, die 
Buchstaben A,B,C werden also lediglich in eine Untergliederungs- 
nummer (=Betriebsart) umgewandelt. Die Datenstation UL kennzeich- 
net eine Sonderbetriebsart der Station mit y=2. 


Da für beide Übertragungsrichtungen nur eine Warteschlange zur 
Verfügung steht, ist ein echter Vollduplexbetrieb mit diesen Sta- 
tionen nicht möglich. Solange also etwa eine Eingabe 'hängt', 
tritt in der Warteschlange Stillstand ein. Um wenigstens die Ope- 
ration 'mal sehen, ob was da ist' für die Eingabe machen zu kön- 
nen wurde die Betriebsart C geschaffen. 


Es gibt zwischen Ax,Bx,Cx und UL keinen funktionellen 
Unterschied. Die Ausgabe kann von Empfänger jederzeit mit 
Hilfe eines ausgesendeten 'X-off' (Ctrl_S) angehalten werden. 
Mit Hilfe des 'X-on' (Ctrl_Q) wird dann die Wiederaufnahme der 
Sendung angefordert. (X-on/X-o£f£f-Protokoll). Auch emulierte 
Terminals, so etwa beim c't 68000 oder Atari, können auf diese 
Weise angehalten werden. 


In manchen Systemen (ELTEC, ELZET-80) kann über besondere Be- 
dienbefehle die Baudrate verändert werden. 


Ebenso wird in einigen Systemen zusätzlich zum Softwareproto- 
koll ein Hardwareprotoll (DTR) unterstützt. 


Wichtig: Die zugehörige I/O-Task "merkt sich’, ob sie als 

anne letzte Anforderung über A oder über B,C angesprochen 
wurde. Dies steuert ihr Verhalten hinsichtlich des 
unten beschriebenen Eingabekanales. 


B) EINGABE ohne Initiative der I/O-Task 


1) Die Station war zuletzt als Ax-Station in Benutzung. 


Die unaufgefordert empfangenen Daten werden in einen imple- 
mentierungsabhängigen Eingabepuffer (Ringpuffer) geschrie- 
ben. Es wird keine Reaktion zum Sender ausgesendet. 


2) Die Station war zuletzt als Bx oder Cx in Benutzung. 
Auch hier werden die unaufgefordert empfangenen Daten in 
den begrenzten Ringpuffer genommen, allerdings wird nun für 


jedes Zeichen, das auf den Puffer geht, ein X-off zum Sen- 
der zurückgesendet, um diesen zu stoppen. 
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2) 


3) 


Expliziter Lesebefehl für die Station Ax. 


Die evtl. im Eingaberingpuffer befindlichen Daten werden 
eliminiert (Puffer wird gelöscht) und sind damit verloren. 
Die I/O-Task hängt sich jetzt auf ('SUSP') bis die angefor- 
dete Anzahl von Daten eingetroffen ist. Beim Lesen mehrerer 
Sätze und ständig laufendem Eingabestrom gehen bei dieser 
Betriebsart in den 'DORM' - phasen der I/O-Task zwangsläu- 
fig Daten verloren, denn es wird kein X-off-Protokoll 
erzeugt. Die Ax sind als Eingabestationen praktisch nur für 
die Terminaleingabe des Bedieninterface geeignet, weil es 
dort gerade erwünscht ist, daß evtl. in der inaktiven Phase 
angeschlagene Zeichen (Affe, der auf die Tasten hämmerte..) 
keine Auswirkungen haben. 


Expliziter Lesebefehl für die Station Bx, UL. 


Die im Eingaberingpuffer befindlichen Zeichen werden über- 
tragen. Falls diese bereits die Anforderung erfüllen konn- 
ten, so ist die Operation - ggf. mit aufgehobenem Rest im 
Eingaberingpuffer - beendet. 


Beim Lesen von der Station UL, entsprechend der Station B2, 
werden empfangene Line-feeds nicht übernommen. Diese Option 
ist hauptsächlich zum Laden von S-Records von einem Host- 
Rechner geeignet (UL = Up-Load), kann aber auch immer dann 
eingesetzt werden, wenn vom Host zusätzliche Line-feeds 
generiert werden ('Aufblähen' des CR zur Kombination 
CR/LF). Die Station UL ist nur über das Bedieninterface 
erreichbar, von PEARL her muß sie über LDN/2,3/ ange- 
sprochen werden. 


Reichen die im Puffer befindlichen Daten nicht aus, so geht 
die I/O-Task in den Zustand 'SUSP' bis zu dem Zeitpunkt, zu 
dem die erforderliche Anzahl Daten erreicht wird. 


Beim Lesen mehrerer Sätze und einem fortlaufenden Eingabe- 
strom kommt es hier nicht zu einem Datenverlust, da die Be- 
triebsart 'B' das X-on/X-off-Protokoll benutzt und damit 
auch in den 'DORM'-Phasen der I/O-Task keine Daten verloren 
gehen. (sofern der Sender rechtzeitig auf das X-o£ff hört!!) 


Expliziter Lesebefehl für die Station Cx. 


Wenn keine Daten im Eingaberingpuffer stehen, so wird dem 
Auftraggeber nur das Zeichen NUL ($00) mit der Satzlänge 1 
(RECLEN = 1) übermittelt und der Auftrag wird als erledigt 
behandelt. 
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Stehen im Eingaberingpuffer weniger Zeichen als angefor- 
dert, so werden diese übertragen und die erreichte Satz- 
länge wird dem Auftraggeber mitgeteilt. Der Auftrag gilt 
danach als erledigt. 


Stehen im Eingaberingpuffer ausreichend Zeichen, so wird 
- unter Erhalt eines evtl. Restes - der Auftrag daraus er- 
ledigt. 


Auch bei dieser Betriebsart erfolgt die 5 


dem X-off/X-on-Protokoll wie bei der Betr =, ”B®. 


Die Betriebsart 'C' ist also gedacht, um ohne Risiko des 
Aufhängens das Eingabeport abzufragen, ob denn "Daten da 
sind'. Beim Lesen aus Hochsprachprogrammen über 'C' muß 
der Programmierer selbst auf die NUL abprüfen - dann waren 
noch keine Daten eingetroffen. 


Das Bedienkommando 'COPY' (s. B-II) ist auf das NUL-Zeichen 
und die Satzlänge 1 abgerichtet: Nach Einlesen des NUL-Zei- 
chens legt sich 'COPY' für 8 millisec. 'aufs Ohr' um danach 
die Abfrage zu wiederholen. 


Mit GOPRY.W G1LEIB2E: COPYR C23>B1r 


kann man seinen Rechner in so etwas wie ein Terminal für 
den angeschlossenen Host verwandeln. Mit Ctrl A wird dann 
bei Bedarf die Verbindung zum RTOS-UH wiederhergestellt. 


Auch das Lesen vom Cx kann zum Aufhängen führen, nämlich 
dann, wenn die Schlange durch eine liegengebliebene Ausga- 
be oder durch eine Eingabe der Betriebsart A bzw. B 'ver- 
stopft' ist. 


BEDIENINTERFACE: Stationsname ist Ax, Bx, Cx, z.B. Al:, C2:, B2: 


Rev. 


mmessnenan Ein eventuell angegebener Pfadname wird voll in 
die Verwaltung übernommen ('S'-Befehl), hat aber 
keinerlei Funktion. 


Bsp: Oo B2:; DM 1000 2000; 
P: >: B2:;;: COPY B3:3B1:; 
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PEARL-PROGRAMM: Systemname ist Ax, Bx, Cx, z.B. Al; €25; B2; 
Saaneanennen Eine eventuell nachgestellte pathlist wird voll 
in die Verwaltung übernommen ('S'-Befehl), hat 
aber keine funktionelle Bedeutung. 
Bsp: SYSTEM; Output:B3->; 
Inputdevice:B2<-; 
Al; /* Kurzform username=systemname*/; 
PROBLEM; 


SPC Al DATION INOUT ALPHIC CONTROL (ALL); 

SPC Inputdevice DATION IN ALPHIC CONTROL (ALL); 
SPC Output DATION OUT ALPHIC CONTROL (ALL); 

GET .... FROM Inputdevice BY 
PUV .„..: "TO Output By ; 
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Die Datenstation BU läßt den direkten Zugriff auf Prozeßperiphe- 
rie über allgemeine Peripherieadressen oder über den Unterbus (P- 
Bus, nicht bei allen Systemen implementiert) zu. Zu dieser 
Station existiert keine Betreuungstask, da über die Peripherie- 
adressen bzw. den Unterbus nur ungepuffert und unquittiert aus- 
/eingegeben werden kann. Das Betriebssystem ist an dem Transport 
nicht beteiligt. Die BU-Stationen können also nicht vom Bedienin- 
terface angesprochen werden. In Systemen, die Mehrrechnerbetrieb 
zulassen (z.B. VME-Bus), können Synchronissationsmaßnahmen 
unterstützt werden, die wie globale Semaphore wirken. 


Benutzung im PEARL-Programm: 


Der Systemname ist BU(hexadr® ,Zugriffscode), a 
680800-er Rechnern, die nur 6-Byte-Adressen verarbe können) 
BU(hex8), wobei der Zugriffscode zweistellig vor der Periperie- 
adresse angegeben werden muß. Die Datenstation gilt als vom Typ 
'BASIC'. Die Übertragungsrichtung muß angegeben werden. Das 
Bitmuster hexadr8 muß in Kodierung und Adresse der aktuell 
angeschlossenen Hardware ‘entsprechen. 


nativ (bei 


3 


Um möglichst viele unterschiedliche Peripheriekarten verwenden zu 
können, wurden folgende Zugriffsmöglichkeiten geschaffen: 


In der Anweisung 
VENTIL: BU(y,x) ->; 
bedeuten: y = Adresse der Peripheriekarte (des Peripherie- 
bausteins) in hex8. 
x = Kodierung der Zugriffsart, einstellig dezi- 


mal 


Folgende Kodierungen sind zugelassen: 


CODE I Übertragung I wird abgelegt auf 
Bern en 
® I P-Bus, WORD oder LSB 18 
1 I 8 bit, MSB (MOVE.B) Iy 
2 116 bit, MSB (MOVE.W ) Iy, y+1 
3 1 32 bit, MSB (MOVE.L ) Iy, y+tl, y+2, y+3 
4 I 16 bit, MSB (MOVEP.W) Iy, y+2 
5 1 32 bit, MSB (MOVEP.L) I y, y+2, y+4, y+6 
6 I 8 bit, LSB (MOVE.B) Iy 
7 I P-Bus, WORD oder MSB I 
8 I GLOBAL SEMA (TAS  # 


Alle einfachen Datentypen sind zugelassen (Ausnahme: Kodier- 
ung $08). Bei Float-Variablen wird normalisiert bzw. denor- 
malisiert. CHAR-Variablen werden linksbündig beschrieben und 
ggf. mit BLANKs aufgefüllt. 


Bei Kodierung $08 ist eine BIT(1)-Variable zu verwenden. Die 
TAKE-Anweisung benutzt den Assembler-Befehl TAS und liefert den 
Wert '1'Bl, wenn der Pseudo-Request erfolglos war (dann stand 
bereits eine '1' an der getesteten Speicherstelle) oder '®'Bl, 
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wenn der Pseudo-Request erfolgreich war (dann stand bisher eine 
'9'‘ an der Speicherstelle, die vom TAS-Befehl mit einer '1' 
überschrieben worden ist). 

Die Kodierungen $04 und $05 sind für einige Bausteine aus 8-bit- 
Prozessor-Familien erforderlich. 


BEISPIELE: I) Zugriff über Peripherieadressen 
SYSTEM; 
FUEHLR: BU(O240FFFC) <-; /* MC 680006: 


Adr=$SA0FFFC, Zugriffscode=2 */; 


PROBLEM; 
SPC FUEHLR DATION IN BASIC; 
R: TASK; 

DCL TEMP BIT(16); 

TAKE TEMP FROM FUEHLR; 


II) Zugriff über den Unterbus 


SYSTEM; 
VENTIL: BU(42) ->; 
PROBLEM; 
SPC VENTIL DATION OUT BASIC; 
T: TASK; 
SEND '008F'B4 TO VENTIL; 


III) Globale Pseudo-Semaphore 


SYSTEM; 

S1: BU(FFOF0006,8) <->; /* MC 68020, 
Adr=$FFOF0006, Zugriffscode=8 */; 

PROBLEM; 


SPC S1 DATION INOUT BASIC; 
INIT: TASK; 
SEND '01'B1 TO S1; 


X: TASK; 


FOR I TO MAX WHILE FLAG REPEAT; 
TAKE FLAG FROM S1; 
END; 
esse (geschützter Bereich) 
SEND '0'B1 TO S1; (Peudo-Release) 


VORSICHT 

Da sich die Peripherieadressen nicht von Speicheradressen 
unterscheiden, können durch falsche Adressangaben in der BU- 
Anweisung auch Zugriffe auf den von RTOS-UH benutzten Speicherbe- 
reich erfolgen. Mit 'SEND' auf diesen Bereich ist das Überschrei- 
ben von System- und Anwendersoftware möglich. 
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Zu dieser Station gehört die Betreuungstask #EDFMN. Damit können 
- solange genügend Speicher vorhanden ist - beliebig viele 
benannte Textdateien ähnlich wie auf einem Massenspeicher verwal- 
tet werden. Die Betreuungstask #EDFMN kennt keine Wartephasen, da 
ja kein physikalisches Gerät in dem Transport verwickelt ist. 


Der Text wird im Speicher in untereinander vernetzten Blöcken 
('EDTF') abgelegt. Bei der Station ED werden einfache Redundanzen 
(Wiederholungen von Buchstaben, nachstehende Leerzeichen und 
ähn.) für die Speicherung des Textes komprimiert, dies geschieht 
aus Speicherplatzersparnis für den Text. 


Die Station EDB bildet den Text in seiner ursprünglichen Form in 
die Textdatei ab, d.h. daß binäre Daten abgelegt werden können 
(siehe READ/WRITE). 


Der in den ED-Dateien abgelegte Text kann durch Einloggen in den 
bildschirmorientierten Texteditor (siehe ED-Kommando) verändert 
werden. 


Ach Eu ıg: Logt man in ein EDB-File ein, kann der Editor 
gestört werden und die Daten können verändert 
werden. 


Erlaubte Operationen sind: 
Read , Write „ REWIND ,„ ERASE ,„ RM ,„ FILES ,„ DIR 


BEDIENINTERFACE: Name der Station ist ED oder EDB. Die Angabe 
eines Filenamen (bis 24 Zeichen) ist notwendig, 
da andernfalls der Ersatzname '-' (set by 
System) eingesetzt wird. Nur bei 'FILES' oder 
'DIR' kann auf einen Filenamen verzichtet wer- 


den. 

BEISPIEL: ERASE ED:Test ,„ ED:Kopie 
REWIND ED:Data 
COPY ... > ED:Program 


PEARL-PROGRAMM: Systemname ist ED. (bzw. LD/1,1/ für EDB.). 
Wird kein Filename zugefügt, so wird der am 
weitesten rechts stehende Nutzername als File- 
name eingesetzt. 
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BEISPIEL: (Station ED normale ASCII-Zeichen) 
MODULE M; 
SYSTEM; POOL: ED.SAVE ->; 
PROBLEM; SPC POOL DATION OUT ALPHIC CONTROL (ALL); 
AA: TASK; weeıe 
OPEN POOL; CALL REWIND (POOL); 


PUT x,x**2 TO POOL BY (2)E(20,10); 


CLOSE POOL; 
END; 
MODEND; 
BEISPIEL: (Station EDB binäre Daten) 
MODULE M; 


SYSTEM; DATA: LD/1,1/ ->; /*EDB: STATION*/; 
PROBLEM; SPC DATA DATION OUT ALPHIC CONTROL (ALL); 
SPC WRITE ENTRY GLOBAL; 

AB: TASK; DCL SSS(1000) FLOAT; 
OPEN DATA; CALL REWIND (DATA); 


CALL WRITE (DATA,SSS); /*Daten werden binär gespei- 
chert*/; 


CLOSE DATA; 
END; 


MODEND; 


HINWEISE: Wird nach einer REWIND-Operation erneut in den 
File geschrieben, so wird die Länge des Files 
bis auf den Stand des Schreibzeigers gekürzt, 
ggf. früher eingeschriebene Daten (Text) gehen 
somit verloren. 


Falls bei einer Schreiboperation kein Platz für 
die Anforderung eines weiteren Blockes mehr zur 
Verfügung steht, so wird eine Fehlermeldung und 
der Returncode RECLEN=® (wichtig für Assemb- 
lerprogrammierer) abgesetzt. Die zu schreiben- 
den Daten gehen dabei verloren. 
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Floppy und Winchester. Datenstationen Fx / Hx 


Bitte überzeugen Sie sich zunächst (Tabelle am Ende des Schnell- 
kurses) auf welcher Warteschlangennummer Ihre Floppy bzw. ggf. 
Ihre Winchester implementiert wurde, da Sie diese Information für 
den PEARL-Compiler benötigen. In den meisten Fällen wird die Dis- 
kette auf der LDN No. 3 zu finden sein. Dafür ist im Compiler ein 
passendes Schlüsselwort vorhanden. (FO ... F3). Es ist möglich, 
daß für Winch. und Diskette die gleiche LDN gilt. Die Selektion 
erfolgt dann über die Drivenumber. 


Der Fileaufbau ist hierarchisch, es besteht aber kein Zwang zur 
Benutzung einer solchen Baumstruktur. Insbesondere können ältere 
Disketten des nichthierarchischen Filehandlers immer noch ein- 
wandfrei gelesen werden. 


Die Winchester kann scheinbar in verschiedene Laufwerke aufge- 
teilt sein. Zu diesen scheinbaren Laufwerken gehören dann auch 
eigene Directories. Grundsätzlich gibt es keinen Unterschied beim 
Umgang zwischen Disketten und Winchester. 


Studieren Sie bitte in B-II die Kommandos "FORM','FILES','FREE', 
'cF' (evtl. auch für Winch!), "SYNC', '"REWIND', '"RM'/'ERASE', 
'"MKDIR', 'RMDIR', 'RETURN' und 'DIR'. 


Wichtig ist, daß nicht versehentlich Files geöffnet zurückbleiben 
oder bei geöffneten Files die Diskette gewechselt wird. 


Unsere Floppy/Winch-handler erlauben einen wahlfreien Zugriff von 
PEARL-Programmen aus mit Hilfe der Einbaufunktionen 'SEEK' und 
'SAVEP'. 


BEDIENINTERFACE: Stationsname ist Fx (x=0,1,..) für die Disket- 
ten und Hx (x=0,1,..) für die Winch. 
BEISPIEL: LOAD H®:usr/games/kalaha; 


SYNC Fl:; CF F1:FORGET; (Bei eiligem Aufbruch) 


PEARL-PROGRAMM: Der Systemname Fx führt immer auf die LDN 3 !! 
Also ggf. über Lx (s. A-II 'Lx') adressieren. 


BEISPIEL: SYSTEM; Wf£file1:LD/5,5/.platzhalter12345<->; 


SPC W£ilel DATION INOUT ALPHIC CONTROL (ALL); 


OPEN W£filel BY IDF('mueller/daten'); 
CALL REWIND (Wfilel); 
PUT x,y TO W£filel; CALL SAVEP (Wfilel,Pos); 
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Stationszugriff über 'LDN' ö Datenstationen L... 


Wenn eine Station keinen mnemotechnischen Namen besitzt, so kann 
sie über das Bedieninterface durch Angabe ihrer Warteschlangen- 
nummer adressiert werden. Allerdings erlaubt dieser Zugriff zur 
Zeit nur die Ansprache des Laufwerkes (Drive) No.'0'. Der PEARL- 
Compiler gestattet dagegen auch die freie Wahl der Laufwerksnum- 
mer. (siehe auch C-I, Sprachumfang PEARL). 


BEDIENINTERFACE: Name der Station ist 'Lx'. (x=0,1,..9,A..2). 
Eine angegebene pathlist wird an die entspre- 
chende Betreuungstask weitergeleitet. Es kann 
nur das 'drive' OÖ adressiert werden. 


BEISPIEL: COPY ED:test co L5:abce/xyz; 


PEARL-PROGRAMM: Die Station wird über das Schlüsselwort 'LD' 
angesprochen. Dahinter erfolgt,durch slashes 
eingerahmt, die Angabe von Warteschlangennum- 
mer und drivenumber. 


BEISPIEL: SYSTEM; Flop2:LD/5,2/.xAXxxxxXxxXxxx(-; 
esse are /* LDN=5, DRIVE=2 %*/; 


SPC Flop2 DATION INOUT ALPHIC CONTROL (ALL); 


PUT datal,data2 TO Flop2 BY (2) LIST; 


HINWEIS: Natürlich können über diesen Weg Warteschlangennummern 
angegeben werden, zu denen gar keine Betreuungstasks 
existieren. (Systemintern ist dann kein, 'Task-identi- 
fier' in der LDN-TID Tabelle eingetragen). In solchen 
Fällen meldet sich das System beim verantwortlichen 
User mit >> taskname: WRONG LDN (XIO) und es findet 
keine Operation statt. 
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Parallel-port (Output) Datenstation PP 


Die parallele Druckerschnittstelle des Rechners wird angesprochen 
und die Daten werden im Handshakemode interruptgesteuert übertra- 
gen. Die Druckerbereitschaft wird nicht explizit geprüft, ist 
also kein Gerät angeschlossen oder dieses nicht bereit, so bleibt 
die Betreuungstask #PPORT so lange hängen, bis ein Data-acknow- 
ledge empfangen wird (Zustand: #PPORT: SUSP). 


BEDIENINTERFACE: Name der Station ist 'PP'. Ein evtl. angegebe- 
ner Filename bleibt ohne Wirkung. Das Gerät ist 
dem System nur als Ausgabeeinheit be nt. MIE 
Hilfe des 'SD'-Befehles kann das inefeed 
den Erfordernissen entsprechend p»p inetriert 
werden. 


BEISPIEL: COPY ED:Test»>PP: 


PEARL-PROGRAMM: Der Systemname ist PP 


BEISPIEL: SYSTEM; 
PRINT: PP 2% 
PROBLEM; 
SPC Print DATION OUT ALPHIC CONTROL (ALL); 


PUT message TO Print BY ..... 5 
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Die Stationen VI (Virtual Input) und VO (Virtual Output) besitzen 
jeweils eigene prioritätengeordnete Warteschlangen, aber nur eine 
Betreuungstask #VDATN, die deren Betreuung übernimmt. Alle Aus- 
gabe-Communication-elements, die nach VO geschrieben werden, 
sowie alle Eingabe-CE's, die von VI gelesen werden, werden in 
eine betreuungstask-eigene Warteschlange übernommen. Die Übertra- 
gung der Daten von den VO-CE's in die VI-CE's erfolgt, sobald auf 
beiden Seiten CE's vorhanden sind. Die Stationen arbeiten nach 
dem FIFO- (First In - First Out) Prinzip, d.h. die zuerst erfolgte 
Ausgabe an eine VO-Datei wird als erste Eingabe von der gleichen 
VI-Datei gelesen. 


VI und VO bilden ein Instrument zur synchronisierten Task- 
Kommunikation. Erzeuger können ihre Daten zu e m beliebigen 
Zeitpunkt in die Datenstation VO schreiben und ohne Unterbrechung 
weiterarbeiten; auch eine Terminierung des Erzeugers führt nicht 
zum Datenverlust. Verbraucher können jederzeit Daten von VI 
anfordern, werden aber bis zur Erfüllung der Eingabeanforderung 
angehalten. 


Z.B. können Compiler und Lader über VI und VO verbunden werden, 
um das Compilat nicht als (speicher- oder floppy-) residente 
Datei abzulegen. 


Bedieninterface: Die Stationen heißen VI: und VO:, der Dateiname 
kann einen Path enthalten. Es können beliebig 
viele Dateinamen gleichzeitig verwendet werden. 


Beispiel: LOAD VI:Loader; PEARL ...>VO:Loader 
RM VO:Mist (wenn VO:Mist überflüssig ist) 


PEARL-Programm: Systemnamen sind VI (nur Eingabe) und VO (nur 
Ausgabe). Wird kein Filename angegeben, so wird 
der am weitesten rechts stehende Nutzername 
verwendet; wird kein Nutzername angegeben, so 
wird der Filename '-' eingesetzt. 


Beispiel: SYSTEM; 
PRODUCE: VO.mypipe ->; 
CONSUME: VI.mypipe <-; 
PROBLEM; 
SPC PRODUCE DATION OUT ALPHIC CONTROL (ALL); 
SPC CONSUME DATION IN ALPHIC CONTROL(ALL); 
Ti: TASK; 
PUT ... TO PRODUCE BY ...; 
END; 
T2: TASK; 


GET ... FROM CONSUME BY ...; 
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Zu dieser Station gehört die Task #XCMMD, die die Betreuung der 
Ausgabeschlange (prioritätsgeordnet) übernimmt. Mit dem an dieser 
Station eintreffenden Text wird das Bedieninterface beschickt, 
die Kommandos werden also auf der Prioritätsebene der Task #XCMMD 
ausgeführt, sofern nicht Subtasks gebildet werden. 

Die an der Station eintreffenden Sätze sollten jeweils mit CR 
oder LF abgeschlossen werden. Leere Sätze haben keine Wirkung. 


BEDIENINTERFACE: Name der Station is Ein hinzugefügter 
Filename wird zwar in » Verwaltung übernommen 
und erscheint beim 'S'-Befehl des Bedieninter- 
faces, er nimmt aber auf den Ablauf keinen 


Einfluß. 
BEISPIEL: COPY ...2XC: 
PEARL-PROGRAMM: Systemname ist XC. Wird kein Filename zugefügt, 


so wird der am weitesten rechts stehende Nut- 
zername eingesetzt. Wie beim Bedieninterface 
hat der Filename jedoch keine Wirkung auf den 
Ablauf. 


BEISPIEL: SYSTEM; 
BEDIEN: XC; 
PROBLEM; 
SPC BEDIEN DATION OUT ALPHIC CONTROL (ALL); 
TT: TASK; 


PUT 'UNLOAD TEST' TO BEDIEN BY A,SKIP; 
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PROZESSINTERRUPTS IN RTOS-UH Interrupteingabe 


RTOS-UH verwaltet maximal 32 Prozessinterrupts, die eine hohe 
zeitliche Auflösung ermöglichen, da die Interruptroutine 
typischerweise unter 180 us durchlaufen werden kann. Fuer einige 
Implementierungen von RTOS-UH gibt es fest zugeordnete Leitun- 
gen zu einzelnen Bits des Interruptbitmusters. Diese Zuordnun- 
gen entnehme man den Hardwareunterlagen. Bei allen Systemen 
später als NUK 2.9 besteht die Möglichkeit, daß der Anwender 
sich seine eigene "bitmustererzeugende' Unterbrechungsroutine - 
etwa für einen speziellen Controller - hinzufügt. 


Ein Interrupt wird im RTOS nur wirksam, wenn sein zugehöriges 
Bit in der 'ENABLE'-Maske des Systemes gesetzt ist. Bei einem 
Kaltstart von RTOS-UH werden zunächst alle Prozessinterrupts 
abgeschaltet. 


BEDIENINTERFACE: Siehe Anweisungen "ENABLE', "DISABLE', 
"TRIGGER' und 'WHEN'. 


PEARL-PROGRAMM: Systemname ist EV(hexnum8). Das Bitmuster 
hexnum8 gibt an, auf welche Bits reagiert 
werden soll. 


SYSTEM; Limit: EV(00000006); 

PROBLEM; SPC Limit INTERRUPT; 

TS:TASK; ... WHEN Limit ACTIVATE XYZ .... 
Sowohl das Interruptbit 00000002 als auch das 
Bit 00000004 führen jetzt zur Aktivierung 
von XYZ. (logisches 'oder') 


HINWEIS: Mit Hilfe der 'TRIGGER'-Anweisung kann die 
Wirkung eines äußeren Ereignisses exakt simu- 
liert werden, da systemintern die gleichen 
Programmteile angestoßen werden. 


EINBAU EIGENER PROZESSINTERRUPTS: 


Der Nutzer schreibt eine Interruptroutine und versorgt den 


Interruptvektor sowie die sogenannte 'Malfunction' (s. dazu 
unbedingt E-VI, Codierung des Interruptprozesses) mit Hilfe einer 
Task oder des 'GO'-Befehles. Dabei müssen genau die angege- 


benen Register gerettet werden, da sonst der Rückfallmechanismus 
zum Absturz führen kann. 
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Der Anschluss könnte zum Beispiel wie folgt aussehen: 


DC.L 0,0 Für RTOS-Lader s. D-III ! 

DC 50910 Modulkopf al 

DC.B 'Prozir' Name des Modules ac * 
* 
IID EQU $7FE Interrupt-identifier * 
IRVEC EQU ???? Vector-link je nach Hardware 
TERV OPD SA010 Terminate and vanish * 
* „.. Hier Einstieg fuer 'GO'-Befehl * 

MOVE.L =IRP,IRVEC Einsetzen * 

TERV 'GOTO'-Subtask killen. * 
* 
* 

DC IRPE-IRP Anschluß zu Fehlerrückfall 
IRP MOVE IID,-(A7) Save old Interruptidentifier 

MOVE =IRVEC,IID For any mal£function-process 

--) MOVEM.L D1/D6/D7/Al,-(A7) ist vorgeschrieben!! 


PER, Interruptbitmuster vom Coupler lesen 
und den Interruptrequest des Couplers 
zuruecksetzen. (IR-Ursache beseitigen). 
Triggerbitmuster nach D1.L schaffen. 


MOVEA.L $80E,A1 Zieladresse innerhalb RTOS 


JMP (Al) Zum Systemkern. 
* 
IRPE MOVEM.L (A7)+,D1/D6/D7/Al Reload registers 
MOVE (A7)+,IID Rueckisden des Interrupt-ID 
RTE Rueckfallabschluss 
Durch einmalige Exekution von GO auf den Platz (Ladeadr+$1P) 


wird die neue Prozessinterruptbehandlung aktiviert. Dies ist die 
platzsparendste Lösung, bequemer wäre es, eine richtige An- 
schlußtask zu schreiben und diese namentlich zu starten. 


WICHTIGER HINWEIS: Nach Abort/Reset wird dieser Anschluß wieder 
aufgehoben, es muß also ein erneuter 'GO' 
Befehl abgesetzt werden. Vor dem Entladen 
des angeschlossenen Interruptcodes muß 
umgekehrt das alte Link wieder hergestellt 
werden, eben z.B. mit Abort. Für dauer- 
hafte Sonderbehandlung wird eine Einbettung 
in den EPROM-Code empfohlen. Siehe dazu 
Scheibe 14, E-VII. In diesem Fall Ändert sich 
am Code der Interruptroutine nichts, 
lediglich der Vektoranschluß wird durch die 
Scheibe automatisiert. 
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Das Betriebssystem verwaltet das verfügbare RAM vom unteren und 
oberen Ende aus nach zwei verschiedenen Philosophien. 


Anforderungen, die meistens zu längerer Speicherbelegung führen, 
werden durch eine Suche von unten nach oben mit dem "first fit'- 
verfahren befriedigt. Dazu gehören folgende Speichersektionen: 


EDTF Editor-files 
MDLE PEARL- oder Assemblermodule bei Laden ohne Adreßzusatz 
TASK PEARL- oder Assemblertasks beim Laden ohne Adreßzusatz 


Anforderungen, die in der Regel nur kurzfristige Belegung vermu- 


ten lassen, werden durch eine Suche von oben nach unten, eben- 

falls nach dem 'first fit', abgedeckt. Dazu gehören folgende Sek- 

tionen: 

TWSP Task-workspace. Speicher für taskeigenene Variable. 

PUSP Prozedur-workspace. Speicher (taskzugehörig!) für die 
in Unterprogrammen deklarierten Variablen. 

CWHSP Communication-workspace. Das interne Botschaftensystem 
von RTOS-UH bedient sich solcher 'CE' (comm. element). 

TASK Header von Sohnprozessen, wie sie etwa beim 'P', 'coPY' 


etc. vom Bedieninterpreter geschaffen werden. 


Teilweise bedienen sich Sohnprozesse wie Lader und Floppyhandler 
für ihre Datenhaltung mehrerer Sektionen des Typs PWSP. Wenn das 
Betriebssystem diesen Platz nicht mehr zur Verfügung stellen 
kann, so läuft der Sohnprozeß genau wie normale Tasks nicht 
weiter. 


Nach unserer Erfahrung entmischen sich bei diesem Prinzip die 
Sektionen meistens automatisch auf günstige Weise. Vereinzelt 
kann es vorkommen, daß man mehrere einzelne freie Sektionen noch 
zur Verfügung hat, und nur deren Summe ausreichend wäre. Wenn der 
Platz zwischen EDTF-Blöcken liegt, so kann man sich mit einem 
Umkopieren mit Hilfe einer Floppy behelfen. Dabei ist aber zu be- 
denken, daß der Floppyhandler selbst ein ziemlich gefräßiger Ge- 
selle ist und u.U. in diesem Grenzfall nicht lauffähig ist. 


MERKE: Wenn ein Sohnprozeß nicht startet, trotz richtiger Priori- 
tätslage, oder der Floppyhandler stecken bleibt, so schaue man 
mit dem 'S'-Kommando nach, ob nicht ganz einfach Speicherplatz 
fehlt. Der Bedieninterpreter erhält seinen Speicher schon beim 
Systemurstart und ist daher immer ansprechbar. ABER: Man kann 
sich bei der Grenzbelegung leicht aus dem System ausblenden, wenn 
etwa das Kommando 'DIR' oder 'RM' gegeben wird, da in diesem Fall 
der Bedieninterpreter auf den nie fertig werdenden Floppyhandler 
bis zum St.Nimmerleinstag wartet! Evtl. über ein anderes Nutzer- 
terminal Platz schaffen oder Aborttaste betätigen. 


Praktisch ist aber nur bei den sehr kleinen 68008-Systemen mit 
nur wenigen kB RAM mit solchen Problemen zu rechnen. 
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Das Betriebssystem RTOS-UH bedient sich einer zentralen Meldetask 
#ERROR, um Meldungen über Irregularitäten an den für die laufende 
Task verantwortlichen Nutzer abzusenden. Man sollte dazu wissen, 
daß diese Task für jeden Nutzer einen kleinen Ringpuffer hat, in 
dem nur Platz für 6 Meldungen ist. Kommen weitere Fehlermeldungen 
an, bevor wieder Platz im Puffer ist, so gehen diese verloren. 
Aus diesem Grund sollte man sich nicht an den rasenden Meldungen, 
z.B. Division durch Null, erfreuen, sondern daran denken, daß 
vielleicht wichtige Nachrichten verloren gehen können. #ERROR 
liegt in der Priorität höher als der Bedieninterpreter, bei man- 
chen Terminals muß man bei rasenden Meldungen (wegen der Blok- 
kierung durch das Terminalprotokoll) daher ziemlich hartnäckig 
auf die Ctrl A-Taste hacken, um wieder in das System zu kommen. 


Jede Meldung über #ERROR beginnt mit dem typischen '>>' am linken 
Rand der Terminalzeile. Diesem String folgt typischerweise der 
Name der verursachenden Task, eine Adresse oder weiterer Name, 
sowie die eigentliche Botschaft. Je nach Schwere des Fehlers wird 
die Task suspendiert oder kann weiterlaufen. 


>> ABCD: 008022 WRONG OP-CODE (TRAP) 


Lies: Die Task ABCD ist auf einen unbekannten Befehl gelaufen, 
der Programmzähler steht jetzt auf 008022. Der falsche Be- 
fehl (Speicherfehler?, Feldüberschreitung ohne Tester?) 
muß also kurz vor dieser Adresse zu finden sein. Wenn die 
Task ABCD eine PEARL-Task ist und mit der /*+M */-Option 
übersetzt wurde, so kann man mit dem 'DL'-Kommando nach- 
sehen auf welcher Programmzeile die Task jetzt steht. 


»> COPY26: (TERMI) 


Lies: Hier gibt es offenbar gar keinen Fehler, sondern nur einen 
Hinweis, daß der Sohnprozeß COPY26 jetzt seine Arbeit be- 
endet hat. 


>> **V200:08FFA2 WRONG ADDRESS (Nur auf Konsolterminal möglich) 


Lies: Die Sterne bedeuten, daß es sich keine Task zuordnen läßt, 
weil der Fehler in einem Interruptprozeß aufgetreten ist. 
Dabei bedeutet V200, daß der Interruptprozeß über den Ex- 
ceptionvektor $200 angeschlossen ist. Meistens ist das eine 
ungute Sache, der Kollaps des Systemes konnte nur durch 
den integrierten Interruptrückfallmechanismus von RTOS-UH 
verhindert werden. Der Interruptprozeß hängt also nicht, 
sondern wurde geordnet abgebrochen. 


>> MASTER:MURKS NOT SUSPENDED (CONTINUE) 


Lies: Die Task MASTER hat eine CONTINUE-Anweisung für die Task 
MURKS ausgeführt. Das Betriebssystem stellt aber fest, daß 
MURKS gar nicht suspendiert ist und die Anweisung somit 
ohne Wirkung bleiben muß. Keine schlimme Sache, irgendein 
kleinerer Denkfehler des Programmierers beim Tasking. 
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Maximale Anzahl gleichzeitig aktiver Tasks: Nicht begrenzt! 
Maximale Anzahl von Semaphorvariablen: Nicht begrenzt! 
Maximale Anzahl von Prozeßinterrupts: 32 

Reaktionszeit auf Prozeßinterrupt unter PEARL: kleiner 2008 us 


Prozeßumschalter ('"Dispatcher'): 


Rein ereignisgesteuert, trennt keine Sequenzen im Supervi- 
sormode. Anstoß durch Flag ($800 neg.) und Exceptionexit. 


Umschaltzeit (8 MHz CPU, no waitstates): besser 200 us 
Wechselzyklus A-B-A: besser 400 us 
I/O-Systenm: 


Prioritätsgeordnete Warteschlangen mit eigenen Betreuungs- 
prozessen (I/O-Tasks). Ein- und Ausgabe ist ohne Warte- 
phasen des Auftraggebers möglich, obwohl die Information 
nicht umkopiert wird. Durch einen Trap (XIO) wird nicht 
(wie sonst üblich) die Ein-/Ausgabe quasi per Unterpro- 
gramm erledigt, sondern ein unabhängiger I/O-Prozeß ge- 
startet. Ideal für symmetrische Mehrprozessorsysteme. 


Nutzerdatenstationen können permanent oder temporär hinzu- 
gefügt werden. 


Bedieninterpreter: 
In 68000-Maschinencode codiert. Befehlssatz erweiterbar. 
PEARL-Compiler: 


In virtuellem (VCP-) Code geschrieben. Ca. 500 Zeilen/min. 


Lader: 
Selbstbindend, kann EPROM-residente Prozeduren einbinden. 

Portabilität: 
Durch Austausch der Implementierungsscheibe an alle Rech- 
ner mit 68000, 68010 oder 68028 Mikroprozessor anpaßbar, 
sofern im unteren Bereich $® bis ca. $2008 RAM verfüg- 
bar ist. Ab $800 muß dieses RAM im User-Mode adressierbar 
sein. 

Urheberrechte: 


Prof. Dr.-Ing. W. Gerth, Institut für Regelungstechnik 
Universität Hannover 
Appelstr. 11 
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Bedienung 


Allgemeines 


Das Bedieninterface ist eine wiedereintrittsfeste Prozedur mit 
unmittelbaren Verbindungen zum Kern des Betriebssystems. Der 
Nutzer kann diese Prozedur auf zwei verschiedenen Wegen aktivie- 
ren: 


1. Über die seinem Terminal zugeordnete hochpriorisierte 
Treibertask, die den Namen #USERx hat. 
Dazu wird das Zeichen 'Control A' auf dem Terminal 
angeschlagen. Die Treibertask zeigt ihre Bereitschaft 
durch Ausgabe des Zeichens '*' an und erwartet die 
Eingabe einer Anweisungszeile. Nach Abarbeitung der 
Zeile kehrt die Treibertask wieder in ihre Grundstel- 
lung zurück. 


2. Durch Einschreiben von Text in die Datenstation 'XC'. 
Die an dieser Datenstation eint fenden Records werden 
in einer prioritäts-geordneten Wartes lange aufgefan- 
gen und nacheinander dem Bedieninterface zugeführt. 
Über diesen \leg können z.B. in Hochsprache geschriebene 
Programme selbst alle Bedieninterface-Kommandos wie ein 
menschlicher Bediener absetzen. So können z.B. durch 
zyklische Einplanung einer 'COPY'-Subtask beliebige 
Befehle automatisch wiederholt werden: 


COPY.X ED:XCYXC:;T X;ALL 10 SEC X 


Anweisungsformat 


In einer Anweisungszeile dürfen keine, eine oder mehrere Anwei- 
sungen stehen. Mehrere Anweisungen in einer Zeile müssen durch 
Semikolon voneinander getrennt werden. Sie werden dann parallel 
abgearbeitet. Wenn die Anweisungen hintereinander abgearbeitet 
werden sollen, sind sie durch zwei Minuszeichen zu trennen 
(s.u.). Leeranweisungen sind auch zwischen Semikolons zulässig. 
Zwischenräume (Blanks) sind zwischen Schlüsselworten und Parame- 
tern erforderlich, wenn andernfalls Mißverständnisse entstehen 
könnten. Mehrere Parameter in einer Parameterliste können wahl- 
weise durch Blanks oder Kommata getrennt werden. Eine Zeile wird 
durch das Zeichen '"Carriage-return' beendet. 


Beispiele für zulässige Eingaben: 
DM 5000; ;; 
SM 1000,1200;S;L;XYZ PRIO 50; TERMINATE ABCD; LOAD ED:BB 


T XYZ; TRACE TEST L344,23; 
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Bedienung 
Aufruf über eine Bedientask 


Die Zugriffszeit (nach Anschlag von ctrl A) hängt von der dem 
Terminal zugeorneten #USERx-Task und der aktuellen Systembelas- 
tung ab. Die Priorität ist allerdings die zweithöchste - nach 
der #ERROR-Task - im ganzen System, so daß die Reaktion prompt 
erfolgen sollte. 


A con E unGg 


Eine eventuell noch 'hängende' Eingabe (z.B. erwartet eine Task 
eine Eingabe) kann den Zugriff verhindern. Erscheint das Zeichen 
'*' nicht, daher probeweise "Carriage-return' eingeben. 


Eine Eingabezeile darf max. 123 Zeichen lang sein. 
Abbruch der Treibertask durch 'BREAK' möglich - neue Eingabe. 


Trotz der hohen Priorität der Treibertask werden andere laufende 
Aktivitäten des Betriebssyste dadurch praktisch nicht behin- 
dert, so daß keinerlei Grund zur Zurückhaltung z.B. während einer 
laufenden Compilation bestent. Zeitlich aufwendige Operat en 
werdem vom Bedieninterface durch Erzeugung von Subtasks erledigt 
und damit auf eine niedrigere Prioritätsebene verlagert (kein 
Abbruch mit 'BREAK', sondern UNLOAD!). 


Aufruf über die Datenstation 'XC' 
Jedes ASCII-Record, welches durch COPY oder Programmbefehle in 
die Ausgabestation 'XC' geschrieben wird, wird genauso behandelt, 
wie eine vom Nutzer über seine Bedientask abgesetzte Zeile. Damit 
ist auch das automatische und einplanbare Laden, Entladen, 
Compilieren etc. möglich. 
Solange mit dem '0'-Kommando nichts anderes vereinbart wird, wird 
als Ausgabegerät das jeweilige Terminal des Nutzers angenommen. 
Bei Umschaltung durch das '0'-Kommando gilt dieses nur für den 
Rest der Zeile bzw. bis zum nächsten 'O'-Kommando. 
Beispiele: 
Beginnend um 12:00:00 Uhr soll alle 2 Sekunden der Zustand der 
Task TRANS aufgelistet werden. Die Zustände sollen in die Datei 
ED:ZUST geschrieben werden. Um 12:02:50 soll der letzte Eintrag 
erfolgen: 
COPY Al:>ED:CMMD Erstellung der Befehlsdatei 
=0 ED:ZUST;SHOW TRANS;TERMINATE LIST steht im File 
=(EOT) Ctrl-D schließt die File Erstellung 
COPY.LIST ED:CMMD>XC:;T LIST 


AT 12:00:00 ALL 2 SEC UNTIL 12:02:50 LIST 
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Bedienung 


Ein in PEARL geschriebenes Modul (TEST) soll ganz aus der 
Verwaltung von RTOS-UH verschwinden: 


MODULE TEST; 
SYSTEM; XC:XC.; 
PROBLEM; SPC XC DATION OUT ALPHIC CONTROL (ALL); 
ABCD: TASK; 
PUT 'UNLOAD TEST*' TO XC BY A,SKIP; 
SUSPEND; 
END; 


4 
MODEND; 


Hinweis: Die Priorität der Betreuungstask für die 'XC'-Warte- 
schlange liegt zwar über allen Anwendertasks, dennoch 
kann der im letzten Beispiel eingebaute SUSPEND-Befehl 
evtl. zur Ausführung kommen, weil noch andere Aufträge 
weiter vorne in der Warteschlange stehen können und die 
mit dem 'PUT'-Befehl abgesetzten Anweisungen dadurch 
verzögert werden. 


Zeitliche Hintereinanderschaltung von Befehlen 


Sollen verschiedene Befehle in zeitlicher Folge hintereinander 
ausgeführt werden, so sind zwischen den Befehlen zwei Minuszei- 
chen einzugeben. 


Beispiel: Es soll ein PEARL-Programm mit dem Namen TASK1 über- 
setzt, geladen und aktiviert werden. 


Eingabe: P--LOAD--ACTIVATE TASK1 


Nach dem Übersetzen wird das Programm geladen und gestartet. Die 
Meldungen des jeweiligen Befehls werden durch den nachfolgenden 
Befehl unterdrückt. 


Tritt während einer Befehlsausführung ein Fehler auf, werden die 
nachfolgenden Befehle nicht mehr ausgeführt. D.h. wenn während 
der Kompilierung ein Fehler auftritt, wird das Programm nicht 
mehr geladen und nicht aktiviert. 
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Bedienung 


Aktiv. von Tasks ggf. mit 
der Laufpriorität. 

Wie A. 

Einplanung zeitverzögert. 
Einpanung, zyklisch. 
Assemblieren durch Subtask. 
Wie AS. 

Einplanung für Zeitpunkt. 
Continue suspended Tasks. 
Workingdirectory 
einrichten/ (erweitern). 
Diskettenentnahme aus Laufwerk 
Uhrzeit+nächste Einplanung ausge- 
ben. 

Rechneruhr stellen. 

lie C. 

Kopieren und/oder mischen. 
Parameterbytes anzeigen. 
Directory auflisten. 
Interrupt abklemmen. 
Zeilennummer PEARL-Prog. 
Memory auflisten. 
Display Registers of Task. 
Einloggen Texteditor. 
Interrupt(s) scharf machen. 
Löschen von Files. 


Angabe 


ausgeben. 


Auflisten der aktiven Files. 

Floppy formatieren. 

Freien Platz ausgeben. 

Sprung auf angegebene Adresse. 

Alle Tasks mit Zuständen auflisten. 
Linken und Laden von Modulen in UH- 
S-Records. 

Nur Usertasks mit Zuständen auflis- 
ten. 

Directory einrichten. 

Adressen- und Zeilenüberwachung 
abstellen. 

Ausgabe Bedieninterface neu verein- 
baren. 

PEARL-Programm kompilieren. 
Langform von'P'. 

Einplanungen löschen. 
Workingdirectory ausgeben. 
Semaphore freigeben. 

Files zurückgeben. 

File zurückspulen. 

Wie ERASE. 

Directory löschen. 

Speicherbelegung ausgeben. 
Parameterbytes setzen. 

Timesharing 

Taskzustände angeben. 

Langform von 'SH'. 

Speicherzelle(n) setzen. 


Kommandos des Bedieninterfaces 
A on tasknamelist 
ACTIVATE u 

AFTER schedule, task 

ALL schedule,task 

AS (subtask,paralist) 
ASSEM E 

AT schedule,task 

c tasknamelist 

cD (devbez.)pathlist 
cF *) floppydev.extrainf 
CLOCK — 

CLOCKSET time-specif. 
CONTINUE tasknamelist 

coPY (subtask,paralist) 
DD device 

DIR £floppydevlist 
DISABLE eventcode 

DL taskname 

DM adr.-exp, (adr or len) 
DR taskname 

ED (subtask,,paralist) 
ENABLE eventcode 

ERASE device-file-list 
FILES devicename 

FORM *%) 'S'or'D',devicename 
FREE *) floppydevice 

Go (subtask,,‚paralist) 
L = 

LOAD (subtask,paralist) 
LU —— 

MKDIR *) devbez.pathlist 
NOTRACE taskname 

o device-file 

p (subtask,,paralist) 
PEARL (subtask,,paralist) 
PREVENT tasknamelist 

PWD a 

RELEASE sema-adr-list 
RETURN *) device-file-list 
REWIND device-file-list 
RM device-file-list 
RMDIR %) devbez.pathlist 

Ss Ze 

SD device 

SHARE prio 

SH tasknamelist 

SHOW tasknamelist 

SM adr.-exp.,value 
B-I-4 
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su tasknamelist 
SUSPEND tasknamelist 

sY nn 

T tasknamelist 
TERMINATE tasknamelist 
TRACE taskname,adr/line 
TRIGGER eventcode 

UNLOAD 

WHEN 


Rev. 


Bedienung 


Tasks suspendieren. 
Langform von 'SU'. 

Wie 'S'. 

Tasks beendigen. 

Langform von 'T'. 
Adress-/Zeilenüberwachung 
einschalten. 

Interrupt simulieren. 


task-/modulnamelist Tasks/Module entfernen. 


eventcode,tasksched. Task für Interrupt einplanen. 


*) Befehl nur bei Systemen mit Diskettenstation 
vorhanden. 


RTOS-UH Dec. 


1986 


Bedienung 
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Activate Task (by Priority) ACT LV ATE 


SYNTAX: ACTIVATE taskname [ PRIO integer3 ] 
'taskname [ PRIO integer3 ] 
A taskname [ PRIO integer3 ] 
taskname [ PRIO integer3 ] 


Beschreibung: 


Beispiele: 


Hinweis: 


Die Task 'taskname' wird mit der Priorität "inte- 
ger3' aktiviert. 


Ist die Task bereits aktiv, so wird der Aktivie- 
rungszähler der Task erhöht (die Anzahl der gepuf- 
ferten Aktivierungen wird erhöht); andere mögliche 
Einplanungen der Task werden nicht beeinflußt. 


Fehlt der Zusatz 'PRIO', so wird der Defaultwert 
aus der Task-Definition eingesetzt. Das gleiche 
gilt, wenn "'integer3' gleich Null ist. 


Die Bedienprozedur prüft selbst nicht, ob die Task 
vorhanden ist. Der Aktivierungsbefehl kann also zur 
Auslösung eines Fehlersignals durch den Kern von 
RTOS-UH (hier 'NOT LOADED') führen. 


ACTIVATE XYZ PRIO 123;test; 'ABCDE 


Die Task XYZ wird mit der Priorität 123 aktiviert, 
während die Tasks test und ABCDE unter Verwendung 
ihrer Default-Prioritäten aktiviert werden. 


Wenn der Taskname gleich einem Bedienkommado ist, 
kann die Kurzform (nur Taskname) nicht angewendet 
werden, da zuerst auf ein gültiges Kommando geprüft 
wird. 
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Delayed Activation or Continuation AFTER 


SYNTAX: AFTER 
AFTER 
AFTER 


AFTER 


Beschreibung: 


duration: 


ALL: 


Hinweis: 


Beispiele: 


B-II-2 


duration ACTIVATE taskname [ PRIO integer3 ] 
duration CONTINUE taskname 
duration ALL duration UNTIL clock 
ACTIVATE taskname [ PRIO integer3 ] 
duration ALL duration DURING duration 
ACTIVATE taskname [ PRIO integer3 ] 


Bestehende Einplanungen für eine Aktivierung (bei 
ACTIVATE) bzw. zur Fortsetzung (bei CONTINUE) wer- 
den gelöscht, und die angegebene Einplanung wird 
eingetragen. 

Wird bei ACTIVATE keine Priorität angegeben, so 
wird die taskeigene Default-Priorität eingesetzt. 
Die aktuelle Priorität einer laufenden Task wird 
jedoch nicht geändert, sondern erst, wenn die 
Einplanung zur Aktivierung führt. 


Textstring: integer5 HRS integer5 MIN 

integer5[.integer3] SEC 
Bis zu 2 Zeiteinheiten (HRS, MIN, SEC) dürfen 
fehlen, die Reihenfolge HRS - MIN - SEC muß jedoch 
eingehalten werden. 


siehe 'ALL'-Schedule. Eine mit DURING angegebene 
Zeitdauer rechnet ab der ersten Aktivierung. 

Diese Kombination ist im DIN-Basic-PEARL nicht 
erlaubt, aber im RTOS-UH-PEARL wie hier implemen- 
tiert. 


An Stelle der Schlüsselworte "ACTIVATE' und 
'CONTINUE' sind auch deren Kurzformen Hochkomma 
bzw. 'C' zulässig. 

Die angegebene Verzögerungszeit rechnet ab dem 
Eintritt des nächsten Clock-Ticks. Ist die Anzahl 
der Millisekunden für die Gesamtverzögerung nicht 
durch den Abstand der Clock-Ticks (1, 2, 4 oder 8 
ms - je nach Implementierung) ohne Rest teilbar, so 
tritt die Aktivierung bzw. Fortsetzung mit dem 
ersten Clock-Tick nach Ablauf der Zeitspanne ein. 


AFTER 0.25 SEC CONTINUE XYZ 
AFTER 10 MIN 5 SEC ALL 1 SEC ACTIVATE XYZ PRIO 70 


AFTER 5HRS5S9MIN22.55SEC ACTIVATE XYZ 
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ALL-Schedule 


SYNTAX: 


ALL duration ACTIVATE taskname [ PRIO integer3 ] 
ALL duration UNTIL clock ACTIVATE taskname 

[ PRIO integer3 ] 
ALL duration DURING duration ACTIVATE taskname 

[ PRIO integer3 ] 


Beschreibung: Es wird eine zyklische Einplanung für die angege- 
bene Task definiert und evtl. bestehende zeitliche 


und ereignisgekoppelte (WHEN) Einplanungen 


zur 


Aktivierung gelöscht. Die erste Aktivierung erfolgt 


mit dem nächsten Clock-Tick und wiederholt sich 


ggf. bis zur Endzeit - von da an zyklisch. 


Wird die Priorität (3-stellige Ganzzahl) nicht 
angegeben, so wird die taskeigene Priorität genom- 
men. 
duration: ist vom Typ: integer5 HRS integer5 MIN 
integer5.[integer3] SEC, 
dabei ist "integer5' eine maximal 5-stellige Ganz- 


zahl und 'integer3' ein max. 3-stelliger Dezimal- 


bruch. 


Es dürfen bis zu 2 Zeiteinheiten (HRS, MIN, 


SEC) 


weggelassen werden, die Reihenfolge HRS - MIN - SEC 


muß jedoch stets eingehalten werden. 


clock: ist vom Typ: 
integer2:integer2:integer2[.integer3] 
"integer2' ist eine 1 bis 2-stellige Dezimalzahl 
und 'integer3' ein max. 3-stelliger Dezimalbruch. 

Hinweis: An Stelle des 'ACTIVATE' ist auch die Kurzform mit 
Hochkomma vor dem Tasknamen zulässig. 
Zeitdauer und Uhrzeit werden intern als Vielfache 
von Millisekunden gerechnet. Je nach Implementie- 
rung werden jedoch Clock-Ticks von 1, 2, 4 oder 8 
ms als Interruptbasis benutzt. Ist der Zyklus nicht 
ohne Rest durch diese Basis teilbar, so werden die 
Zeitintervalle länger oder kürzer, aber im Mittel 
richtig, realisiert. 

Beispiele: ALL 0.02 SEC ACTIVATE XYZ PRIO 30 


ALL 13 HRS 2.005 SEC 'XYZ 
ALL 2 MIN UNTIL 13:05:55.66 ACTIVATE XYZ 
ALL 7000 SEC DURING 140008 SEC ACTIVATE ABC 


(ABC wird 3 mal aktiviert - sofort, nach 7000 
und nach 14000 sec) 


sec 
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Generate Subtask and Assemble Program AS / ASSEM 


SYNTAX: AS.subtaskname [ PRIO integer3 ] [ size-spec ] 


[ parameterlist ] 


AS [ PRIO integer3 ] [ size-spec ] [ parameterlist ] 
ASSEM.subtaskname [ PRIO integer3 ] [ size-spec ] 


[ parameterlist ] 


ASSEM [ PRIO integer3 ] [ size-spec ] [ parameterlist ] 


Beschreibung: 


parameterlist 


B-II-4 


Das Bedieninterface generiert eine flüchtige, 
eigenständige Task mit vom Nutzer vorgegebenem 
Namen oder, falls in der zweiten Form benutzt, 
einem Systemnamen ASMBxx. Für xx wird eine zwei- 
stellige Hexzahl mit automatischer Weiterschaltung 
eingesetzt. Die Priorität dieser flüchtigen Subtask 
kann vorgegeben oder dem System überlassen werden 
(Default: 20). 


Ebenso kann der dynamische Arbeitsspeicher des so 
erzeugten 2-Pass-RTOS-UH-Assemblers vorgewählt oder 
die vom System standardmäßig gewählte Größe von 5 
kB benutzt werden. Wenn das Feld 'size-spec' be- 
nutzt wird, so ist dies nur bis maximal SZ=7FFE (32 
kB) sinnvoll. 


Da der Assembler wiedereintrittsfest codiert ist, 
können, solange der Speicherplatz reicht, beliebig 
viele Programme gleichzeitig assembliert werden, 
wobei stets derselbe, im ROM gespeicherte Assembler 
benutzt wird. 


Es werden die Elemente SI (Source Input), LO (List 
Output), CO (Code Output) und SC (SCratch-pad) 
akzeptiert. Die Reihenfolge ist bedeutungslos, die 
Liste darf auch leer sein. Für fehlende Angaben 
werden die 'Default-werte' des Systems eingesetzt 
(SI=ED:SI, LO=Al:, CO=ED:SR, SC=ED:SC). 


Wird ein Parameter auf den Wert NO gesetzt, so 
gelten dennoch davor oder dahinter gemachte Verein- 
barungen bzw. die Defaultwerte, wenn der Assembler 
das Gerät im Ausnahmefall benötigt. 


Das SCratch-pad wird nur benötigt, wenn das Gerät 
für SI nicht rückspulbar ist (z.B. VI:, A2:). Ist 
das Gerät für SI rückspulbar, so erfolgt sowohl bei 
SC=NO als auch bei fehlendem SC-Parameter zweimali- 
ges Lesen der SI-Datei ohne SCratch-pad-benutzung. 

Wird beim Aufruf des Assemblers nur eine Datei 
angegeben, so wird diese als SI-Datei betrachtet. 
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Beispiele: 


Hinweis: 


AS.T PRIO 40 SZ 4000 F1:QUELLE>A2: LO NO 


Subtaskname ist T .Nur fehlerhafte Zeilen mit Feh- 
lerbeschreibung über Al: ausgeben - keine Liste. 
Ausgabe der S-Records über A2:. Da SI als Floppy- 
Datei rückspulbar und SC nicht angegeben ist, wird 
der File 'QUELLE' auf Fl: zweimal gelesen und kein 
SCratch-pad benutzt. 


ASSEM 
Aufruf ASMBxx mit Default-werten. 
ASSEM.X A2:>NO LO Al: SC F1.BX 


Subtaskname ist X. Nur Syntaxprüfung der über A2: 
eingegebenen Programmzeilen, Ausgabe der Liste über 
Al:. S-Records werden nicht erzeugt. Der Eingabe- 
text wird auf der Datei BX auf Floppy Fl: zwischen- 
gespeichert (und ist dort später verfügbar). 


Soweit rückspulbare Files benutzt werden, erfolgt 
automatisch zu Beginn eine ATTACH +REWIND- und zum 
Abschluß eine RETURN-Operation. 


Die generierte Subtask verschwindet nach Abschluß 
der Assemblierung vollständig aus dem System. 


Weitere Erläuterungen zum Assembler finden Sie in 
Kapitel D-I ££. 
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At_given time activate or continue AT 


SYNTAX: AT clock ACTIVATE taskname [ PRIO integer3 ] 
AT clock CONTINUE taskname 
AT clock ALL duration UNTIL clock ACTIVATE taskname 


[ PRIO integer3 ] 


AT clock ALL duration DURING duration ACTIVATE 


taskname [ PRIO integer3 ] 


AT clock ALL duration ACTIVATE taskname 


Beschreibung: 


clock: 


ALL: 


Beispiele: 


Hinweis: 
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[ PRIO integer3 ] 
Siehe 'AFTER', die Einplanung wird jedoch nicht 
nach einer Verzögerungszeit, sondern zum angegebe- 
nen Zeitpunkt wirksam. 


integer2:integer2:integer2[.integer3] 


integer2/3 sind max. 2- bzw. 3-stellige Dezimalzah- 
len 


siehe 'ALL'. Die Kombination AT ... ALL ist im DIN- 
Basic-PEARL nicht erlaubt, jedoch im Compiler wie 
hier implementiert. 

AT 0:10:00 CONTINUE test 

AT 13:00:0 ALL 2 SEC UNTIL 14:0:0 ACTIVATE XYZ PRIO 
Ist die angegebene Uhrzeit kleiner als die Istzeit, 


so wird der Wert von clock um 24 Stunden inkremen- 
tiert. 


Rev. RTOS-UH Dec. 1986 


20 


Change Directory GHD 


SYNTAX: CD device:pathlist 


Beschreibung: Der Befehl Change Directory erlaubt es für jeden am 


device: 


pathlist: 


Beispiele: 


System tätigen Nutzer ein Working Directory zu 
vereinbaren. Das Working Directory wird bei allen 
Befehlen, die mit Devices und Files arbeiten, 
eingesetzt, es sei denn, bei dem Befehl wird ein 
Device, gefolgt von einem Doppelpunkt, angegeben 
(Weg über die Root-Ebene). 


Jeder Nutzer kann sich also sein individuelles 
Working Directory einrichten und wird damit bei der 
Verwaltung hierachisch organisierter Daten bestens 
unterstützt. 


Ein Device ist eine Datenstation des Systems, z.B 
ED:, FO: oder Al:. Wichtig ist der Doppelpunkt, er 
zeigt, daß es sich um ein Device handelt und nicht 
um eine Datei. 


Die Pathlist besteht aus bis zu 7 Buchstaben oder 
Zahlen, gefolgt von einem '/' usw. Sie muß mit 
einem Buchstaben beginnen. Endet die Pathlist mit 
einem Subdirectory, muß der '/' am Ende weggelassen 
werden. 


CD ED: 
Das System antwortet mit 

WD= ED:- 
Damit ist das Working Directory ED: ein- 
gerichtet worden und ein COPY-Befehl in 
eine ED-Datei sieht jetzt so aus: 

COPY FO:TEST>TEST 


CD H®:PROG/alt 
Es wird das Working Directory PROG/alt 
auf der Festplatte Hd: eingerichtet. Um 
jetzt eine Datei zu compilieren wird 
folgendes Kommando abgesetzt: 

P MESS>ED:TESTSR LO NO 
Das Programm H0:PROG/alt/MESS wird über- 
setzt und die S-Records werden in die 
Datei ED:TESTSR geschrieben. 


CD MIST 
Antwort: 

WD= H9:PROG/alt/MIST 
Hier wurde das Working Directory 'ver- 
längert', da beim Befehl kein device 
angegeben war. 


Mit CD NO wird das Working Directory gelöscht. 


Die Länge der gesamten pathlist ist auf 24 Zeichen 
beschränkt. 
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Change Floppy CF 
SYNTAX: CF floppydevice:extrainfo 
CF floppydevice 

Beschreibung: Es wird dem System mitgeteilt, daß die angegebene 
Diskette entnommen werden soll oder daß (bei Syste- 
men mit Klappenabfrage) die irrtümlich entnommene 
Diskette wieder eingelegt wurde. Ausserdem kann 
durch einen 'FORGET'-mode der Handler gewaltsam von 
der Diskette getrennt werden. (Software-reset). 

'extrainfo': Stepping-rate einstellen: CF Fx:Vy (y=0,1,2,3). Bei 
Systemen mit direkt gesteuertem FD-controller kann 
damit die Kopfgeschwindigkeit eingestellt werden. 
(0O=schnellster Mode) Muß vor dem Einlegen der 
Disketten gegeben werden, gilt für alle Drives, x 
ist also ohne Bedeutung. 
"FORGET'-Mode: CF Fx:FORGET; 
"RECALL'-Mode: CF Fx:RECALL; 
Bei Systemen mit Klappenabfragemöglichkeit kann 
entschieden werden, was nach irrtümlich entnommener 
Diskette geschehen soll. Beim Wiedereinlegen 
(RECALL) wird die noch im Speicher vorhandene 
Verwaltung weiterbenutzt, wird eine falsche Dis- 
kette eingelegt, so wird diese zerstört. RECALL muß 
daher nach Einlegen zweimal gegeben werden. 
CF F1:RECALL;DIR F1;CF F1:RECALL 

Beachte: Man sollte sich für das Montieren der Disketten die 
Benutzung des CF-Befehles zur Regel machen. Die 
Systemwarnung soll dann zum Retten noch geöffneter 
Files animieren. Der FORGET-Mode ist als Soft- 
warereset auch ohne Klappenabfrage sinnvoll ein- 
setzbar. (Mit entsprechender Vorsicht). 

Fehler: Kein Device angegeben oder Device ist keine Dis- 
kette. 
>>>...:Fx DIRECTORY ACTIVE. (Files noch offen). 

Beispiele: ER Fi:; c£ £d:: CE F0:V2; 
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CF F1:FORGET; (Vorsicht!!) 


CF FOÖ:RECALL; (Nur bei Systemen mit Klappentest). 
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Inspect computer-clock ELOCK 


SYNTAX: CLOCK 


Beschreibung: 


Beispiele: 


Hinweis: 


Es wird der aktuelle Stand der Rechneruhr ausgege- 
ben. Außerdem wir die Uhrzeit des zeitlich nächst- 
folgenden Einplanungszeitpunktes hinzugefügt. 


Selbst wenn im System überhaupt keine zeitlichen 
Einplanungen vereinbart wurden, wird ein nächster 
Einplanungstermin angegeben. Dies ist die 'Geis- 
terstunde', in der die zentrale Rückstellung der 
Uhr und aller Planungszeitpunkte um 24 Stunden 
erfolgt. 


CLOCK Ausgabe: 05:24:59 NEXT SCHED 10:55:39 
CLOCK Ausgabe: 22:01:12 NEXT SCHED 24:00:00 


Die Ausgabe der Geisterstunde im letzten Beispiel 
zeigt an, daß für den laufenden Tag keine Zeitein- 
planungen zur Aktivierung oder Fortsetzung mehr 
vorliegen. 


Zeigt die Rechneruhr eine deutliche Tendenz zum 
Nachgehen, die nicht auf Ungenauigkeiten des Quarz- 
oszillators beruhen können, so ist das Betriebssys- 
tem überlastet. 


Eventuell kann der Austausch des Betriebssystems 
gegen eines mit größerem Abstand der Clock-Ticks 
oder der Austausch des Prozessors gegen eine 
schnellere Version erforderlich sein. 


Eine Überlastung, die sich auf die Ganggenauigkeit 
der Uhr auswirkt, wird in der Regel durch eine zu 
große Anzahl von Tasks mit Einplanungen verursacht. 
Besonders ungünstig ist es, wenn sich Planungs- 
zeitpunkte verschiedener Tasks in großer Zahl in 
einem einzigen Clock-Tick treffen. 
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Set Computer-clock to given time GLOCKSIET 


SYNTAX: CLOCKSET clock 


Beschreibung: Die Rechneruhr wird auf die angegebene Uhrzeit 


clock: 


Beispiel: 


Hinweis: 
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gestellt. Es empfiehlt sich, vorher alle zeitlichen 
Einplanungen zu löschen, da bei Vorrücken der 
Uhrzeit u.U. eine große Zahl von Aktivierungen bzw. 
Fortsetzungen sofort und gleichzeitig fällig werden 
können. 


integer2:integer2:integer2[.integer3] 


"integer2/3' sind max. 2- bzw. 3-stelige Ganzzah- 
len. 


CLOCKSET 13:00:00 


CLOCKSET 0:0:10.5 


Es wird nur die Software-Uhr Ihres Re 
gestellt. Das :llen der Hardware-Uhr kann 
mentationsabhängig auch erfolgen. 
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Continue Task eG fi CO NTLNUE 


SYNTAX: CONTINUE taskname 
C taskname 


Beschreibung: Die angegebene Task wird aus dem Zustand "suspen- 
ded' in den Laufzustand gebracht. 


Hinweise: Die Bedienprozedur prüft weder, ob die Task über- 
haupt vorhanden ist noch ob sie - wie vorgeschrie- 
ben - im suspendierten Zustand ist. Der Auftrag 


wird nur syntaktisch geprüft und an das Betriebs- 
system abgesetzt. Von dort erfolgt ggf. die Aus- 


lösung eines Fehlersignals (hier Meldung ... NOT 
SUSPENDED, ... NOT LOADED). 
Beispiele: CONTINUE ABCD; C XYZ; CONTINUE E 
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Generate Subtask and Copy or Update coPYy 


SYNTAX: COPY.subtaskname [ PRIO integer3 ] [ size-spec ] 


parameterlist 


COPY [ PRIO integer3 ] [ size-spec ] parameterlist 


Beschreibung: 


parameterlist 
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Das Bedieninterface generiert eine flüchtige 
eigenständige Task mit vom Nutzer vorgegebenem 
Namen (1. Form) oder einem vom System erzeugten 
Namen COPYxx. Für xx wird eine zweistellige Hexzahl 
mit automatischer Weiterschaltung eingesetzt. 


Die Priorität dieser flüchtige Subtask kann vorge- 
geben oder dem System überlassen werden 
(Defaultwert ist 20). 


Die Benutzung des Zusatzes 'size-spec' ist für den 
normalen Anwendungsfall nicht sinnvoll. 


Da der im Betriebssystem liegende Programmcode 


wiedereintrittsfest ist, können - solange der 
Speicher für den ca. 200 Byte großen Task-header 
reicht - beliebig viele unterschiedliche COPY- 


Befehle abgesetzt werden, die im Multitasking pa- 
rallel bearbeitet werden. 


Es gelten die Parameter 

SI (Source-Input) 

co (Copy/Corrected Output) 

SC (Source Correction/Command) 


Fehlen SI oder CO, so werden die Defaultwerte des 
Systems eingesetzt (SI=Al:, CO=ED:SI), was norma- 
lerweise nicht sinnvoll sein dürfte. 

Es gibt - abhängig davon, ob SC angegeben wurde 
oder nicht - zwei verschiedene Betriebsfälle: 


A.) SC fehlt oder SC=NO 


Der bei SI angegebene File wird vollständig auf 
den bei CO angegebenen File übertragen. Es 
werden max. 128 Zeichen zu je einem 'record' 
zusammengefaßt und ggf. - je nach Eigenschaft 
der CO-Datei - nach Ergänzung eines Zeichens 
'"linefeed' auf die Ausgabedatei übertragen. Als 
Ende eines 'record' auf der SI-Seite gelten 
auch die Zeichen 'linefeed', "carriage-return' 
und 'EOT'. Die Übertragung wird beendet, wenn 
ein 'record' nur aus dem Zeichen 'EOT' besteht 
oder das Gerät der SI-Datei eine End-of-file- 
Bedingung festgestellt hat. Bei Übertragungs- 
fehlern wird die Subtask vorzeitig beendet und 
verschwindet nach Ausgabe entsprechender mMel- 
dung über das Terminal. Auch die normale Been- 
digung wird durch ..name (TERMI) angezeigt. 
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Beispiele: 


Rev. 


B.) 


SC wurde einer Eingabedatei zugeordnet. 


Es werden die Zeilen aus den Quellen SI und SC 
gemischt und als 'records' auf die cCO-Datei 
übertragen. Die Anweisungen zum Mischen und - 
bei rückspulbarer SI-Datei - auch zum Umschich- 
ten der aus SI stammenden Zeilen werden als 
Kommandos ebenfalls über das SC-Gerät eingege- 
ben. Als Unterscheidungsmerkmal zwischen Kom- 
mandos und einzumischendem Text auf dem SC- 
Gerät dient das Zeichen am Anfang einer Zeile. 
Steht dort das Zeichen '+', so wird die Zeile 
als Kommando interpretiert. Mit '+' beginnende 
Zeilen können also nicht eingemischt werden. 


+33-455 : Übertrage die Zeilen no. 33 bis 
einschl. 455 aus dem SI-File in den 
co-File. Anschliessend können belie- 
big viele Zeilen (die nicht mit '+' 
beginnen) eingegeben werden, die 
direkt nach CO übertragen werden. 


+755 : Übertrage nur die Zeile no. 755 aus 
dem SI-File in den CO-File. 


+855-840 : Unzulässig, die zweite Zeilennummer 
darf niemals kleiner als die erste 
sein. Es wird die 'Kommando-Fehler'- 
Kondition (s.u.) angenommen. 


+399-402 : Die Rückkehr vor oder auf die letzte 
bereits aus dem SI-File übertragene 
Zeile ist nur bei rückspulbarem SI- 
File erlaubt, sonst wird die 'Kom- 
mando-Fehler '-Kondition angenommen 
(s.u.). Nach dem Rückspulen wird die 
SI-Datei durch Lesen von Anfang an 
auf die angegebene Stelle positio- 
niert und die Übertragung wie 
gewünscht durchgeführt. 


COPY.Z PRIO 16 FO:ALT>F1:NEU 


Subtaskname ist Z. Mit Priorität 16 wird der File 
'ALT' von Floppy ® in den File 'NEU' der Floppy 1 
kopiert, bis der File 'ALT' an sein Ende oder eine 


mit 
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'EOT' beginnende Zeile gekommen ist. 
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coPY F1:Quelle>Fß:Ziel SC Al: 


Subtaskname und Priorität werden vom System 
gewählt. Es werden Kommandos zum Mischen über das 
Gerät Al: erwartet. 


Annahme SI-Inhalt: AAAAAAAAA (1. Zeile) 
BBBBB (2. Zeile) 
ccc (3. Zeile) 


Angenommene SC-Zeilen: +2-3 
KRKR 
+1 (SI rückspulbar) 
JIIJ 
+2 
"EOT' 


Ergebnisfile: BBBBB 
CcCc 
KRKK 
AAAAARAAAA 
JJII 
BBBBB 
"EOT' 


Der Mischvorgang wird beendet, sobald entweder vom 
SI- oder vom SC-File eine Endebedingung ('EOT' oder 
End-of-file) erkannt wird, also auch dann, wenn 
eine Zeile hinter der letzten auf SI vorhandenen 
Zeile adressiert wird. 


Kommando-Fehler: Wird ein falsches Kommando erkannt (Adressierung 


Hinweise: 
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einer Zeile hinter der letzten vorhandenen ist kein 
Fehler), so wird die Meldung ...WRONG COMMAND 
ausgegeben und die Task suspendiert. Nach der 
Fortsetzung wird das Kommando erneut erwartet. 


Floppy-Files werden automatisch mit ATTACH+REWIND 
eröffnet bzw. neu eingerichtet und zum Abschluß mit 
RETURN zurückgegeben. 


Rev. RTOS-UH Dec. 1986 


Show Date 


SYNTAX: DATE 


Beschreibung: 


Beispiel: 


Es wird das aktuelle Datum der RTOS-UH-Datumszelle 
ausgegeben. Wurde diese Zelle noch nicht gesetzt 
(s. Befehl DATESET), so wird eine Folge von Minus- 
Zeichen ausgegeben. 


DATE 
Ausgabe: 81-81-1987 


DATE 
Ausgabe: m 
(Datumszelle war noch nicht gesetzt) 
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Set Computer-Date DATESET 


SYNTAX: DATESET date 


Beschreibung: Die Datumzelle von RTOS-UH wird gesetz. 


date: Eine Zeichenkette mit dem Aufbau tt-mm-jjjj 
tt: Tag 
mm: Monat 
jJjjj: Jahr (zwischen 1984 und 2162) 


Fehler: Es wird geprüft, ob Anzahl Tage/Monat und Anzahl 
Monate/Jahr zulässig ist. Im Fehlerfall erscheint 
die Meldung 
»>USERxX: Date WRONG. 


Beispiel: DATESET 29-02-1988 
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SYNTAX: 


Display device-parameters. DD 
DD device; 

Beschreibung: Für die angegebene Station wird der Inhalt der 
aktuellen Parameterbytes ausgegeben. Die Bedeutung 
der einzelnen Bits entnehmen Sie bitte der Be- 
schreibung des 'SD'-Kommandos. Das Kommando wird 
intern über die 'DM'-Funktion bearbeitet. Dadurch 
werden mehr Bytes ausgegeben als für die angege- 


bene Station signifikant sind. 


Bsp: DD Al: 

Ausgabe Adresse des Parameterfeldes und Inhalt. 

KXX) x: 3300 zz2Z ZZZZ ZZZZ 2222 2ZZZZ ZZzZZ zzZZ 

Lies: LF nach CR ergänzen ($20), dialogfähig 
($10) .Ausgabe möglich ($02), Eingabe möglich 
($01). 

Bsp: DD B2: 

KAXXXKNX: 3301 ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ 

Lies: Erstes Byte wie im obigen Beispiel. Im 
zweiten Byte: Editorsteuerung "Cursor by esc- 
sequence' durch $01. 

Hinweis: Wenn (mit CD) ein Workingdirektory vereinbart wurde 
und dem Devicenamen kein Doppelpunkt (vorläufig 
auch noch Punkt möglich) nachgestellt wurde, so 
gilt die DD-operation für das mit CD-fixierte 
Gerät ('LDN'), also nach CD ED: und DD B2 z.b. für 
alle ED-files!! 
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Directory listing DIR 


SYNTAX: DIR 


Beschreibung: 


Fehler: 


Beispiele: 


Hinweis: 


floppy/winch/ed-pathlist; 


Die angegebene pathlist muß auf ein Directory 
zeigen. Dies kann entweder durch Angabe des Geräte- 
bezeichners (ED:, Fx:, Hx:, etc.) geschehen oder 
durch Pfadgebung zu einem Unterinhaltsverzeichnis. 
Die zur entsprechenden LDN (Warteschlangennumnmer) 
gehörende I/O-Task fertigt auf diesen Befehl hin 
eine Liste der zum bezeichneten Inhaltsverzeichnis 
gehörenden Files an. 


Da der ED-Filehandler nur pseudohierarchisch arbei- 
tet, erhält man bei ihm eine Liste aller über den 
angegebenen Pfad erreichbaren Files. 


Wenn die Geräteeigenschaft kein DIR-Kommando 
zuläßt (siehe 'SsD'-Befehl), so wird der DIR- 
Befehl mit "WRONG COMMAND' abgewiesen. 


Aus der angesprochenen I/O-task sind die verschie- 
denen Fehlermeldungen möglich, z.B: 


REN DRIVE_NOT_READY. (Floppy/Winch) 
area TRACKO®0_NOT_FOUND. al 
nenne. DIRECTORY OVERFLOW (Nicht UH-formatiert) 


DIR FO:,F1:,H1:USR/MUELLER; 

DIR ED:MAIER/QUELLFILES; 

DIR; (es war mit CD ein Workingdirectory fixiert.) 
O ED:FILELIST;DIR FP:; 


Mit dem 'O'-Befehl kann die Liste in einen beliebi- 
gen File gelenkt werden, ausgenommen einen solchen, 
der zur LDN der mit DIR angesprochenen I/O- Task 
gehört. In diesem Fall bleiben nämlich systembe- 
dingt etliche CE-Sektionen (Besitzer: RTOS) bis zum 
nächsten ABORT in der Verwaltung herumliegen. Das 
ist nicht gefährlich, vermindert aber so nach und 
nach den verfügbaren Speicher. 


Also bitte nicht: O ED:ABC;DIR ED:KRUEGER; 


Statt dessen: 
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Zwischenschaltung der virtuellen Datenstation und 
eines COPY-Befehles. Am Ende bitte von Hand ein EOT 
(Ctr1 D) durch die VI/VO-Station schicken oder Pipe 
mit RM klären und COPY mit Unload entfernen. 


coPY VI:dirlink > ED:ABC; 


oO Vo:dirlink; DIR ED.KRUEGER; 
coPY > VO:dirlink; (dann EOT anschlagen) 
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Disable Processinterrupt DISABLE 


SYNTAX: DISABLE EV hexnumd 


Beschreibung: 


BEISPIEL: 


Hinweis: 


Von dem Bitmuster 'hexnumß', das bei Eingabe von 
weniger als 8 Hexziffern durch Ergänzen führender 
Nullen gebildet wird, wird das 1-er-Komplement 
gebildet. Dieses wird logisch 'UND' mit der Event- 
enable-maske des Systems verknüpft und das Ergebnis 
nach dorthin zurückgeschrieben. 

Dadurch werden die durch Einsen in 'hexnumß' ge- 
kennzeichnete Prozeß-Interrupts gesperrt. 


DISABLE EV 1 
DISABLE EV FFFFFFFF (alle Prozeß-IR gesperrt) 
DISABLE EV D (unsinnig, ohne Wirkung) 


Die Anweisung entspricht der gleichnamigen PEARL- 
Operation. 


Rev. RTOS-UH Dec. 1986 B-II-19 


Display Line-number of Task DL 


SYNTAX: DL taskname (Nur Hochsprach-Tasks) 


Beschreibung: 


Beispiel: 


Hinweis: 
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Es wird der Inhalt der Zeilenregisterzelle der 
angegebenen Task ausgegeben. Die Anweisung ist nur 
sinnvoll, wenn die angegebene Task mit der Zeilen- 
markiereroption übersetzt wurde und zum Zeitpunkt 
des DL-Kommandos Workspace besitzt. 


DL REGEL 


egistrierte zZeilen- 
nummer ausgegeben. Wenn nur Teile des Programms nit 
der Markeroption übe tzt wurden, kann es sein, daß 
die Zeilennummer auf einen längst verlassenen Pro- 
grammpfad zeigt. 


Es wird die letzte r 


Wird der Wert '0000' ausgegeben, so wurde noch keine 
Zeilennummer registriert. 


Bei nicht hochsprachkodierten Tasks wird auch eine 
scheinbare Zeilennummer ausgegeben, diese stellt 
jedoch nur einen Zufallswert dar. 


Als Fehlermeldungen können >>... NOT LOADED oder 
>>...NOT ACTIVE erfolgen. 
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Display Memory DM 


SYNTAX: DM hex-add-expression (Fall A) 
DM hex-add-expressionl, hex-add-expression2 (Fall B) 
DM hex-add-expressionl hex-add-expression2 (Fall B) 


Beschreibung: Fall A. Der Wert von 'hex-add-expression' wird auf 


die nächstkleinere oder gleiche gerade Zahl 
abgerundet und als Startadresse für die 
Ausgabe benutzt. Mit dieser Startadresse 
beginnend werden die Hexadezimalwerte der 
folgenden 8 Worte aus dem Speicher mit 
ihren ASCII-Werten ausgegeben. Steuerzei- 
chen werden durch Punkte dargestellt. 


Fall B. Der Wert von hex-add-expressionl wird wie 
im Fall A als Startadresse gewertet. Ist 
der (ebenfalls auf geraden Wert gerundete) 
tert von 'hex-add-ex-pression2' kleiner als 
die Startadresse, so wird er als Anzahl der 
(mindestens) auszugebenden Bytes gewertet; 
ist er größer oder gleich der Startadresse, 
so werden alle Speicherzellen bis mindes- 
tens 'hex-add-expression2' aufgelistet. In 
jedem Fall werden ganze Blöcke von 8 Worten 
(16 Bytes) in jeder Zeile aufgelistet. 


hex-add-expression: Eine Folge von maximal 8-stelligen Hexadezi- 


Beispiele: 


Hinweis: 


malzahlen, die durch '+' Zeichen miteinander ver- 
bunden sind. Damit soll dem Anwender in erster 
Linie das mühselige Addieren z.B. von Ladeadressen 
und relativem Abstand erspart werden. 


DM 5000 (Ausgabe der Bytes 5000 ... 500F) 
DM 610+20,100 (Ausgabe der Bytes 630 ... 72F) 
DM 37FF 3901 (Ausgabe der Bytes 37FE ... 390D) 


Der Zugriff auf die Speicherzellen erfolgt im 
Usermode des Prozessors. Dadurch ist es bei manchen 
Rechnern nicht möglich, sich alle Speicherstellen 
anzusehen, da die Hardware einen Buserror auslöst. 
Mit 'BREAK' kann das Kommando abgebrochen werden. 
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Display Registers of Task DR 


SYNTAX: DR taskname 


Beschreibung: Die angegebene Task wird in der Speicherverwaltung 


Beispiel: 


Hinweis: 


B-II-22 


gesucht. Ist sie dort nicht vorhanden, so erfolgt 
Meldung ... NOT LOADED. Ist die Task zwar vorhan- 
den, aber im Zustand DORM, so erfolgt Meldung ... 
NOT ACTIVE. 


Anschließend werden die Register der Task ausgege- 
ben. Die Ausgabe erfolgt in spartanischer Schlicht- 
heit, da die Anweisung ohnehin nur für Bitmuster- 
Freaks oder Assembler-Programmierer interessant 
Ist; 


Adr: AT (US) AT (SS) DO D1 
Adr: D2 D3 D4 D5 
Adr: D6 D7 AD Al 
Adr: A2 A3 A4 A5 
Adr: A6 St5/4 st3/2 St1/0 


Mit St sind die letzten 6 Worte des System-Stacks 
gemeint. So ist z. B. St1/0 die Adresse hinter 
einer TRAP-Instruktion, wenn diese auf Taskebene 
ausgeführt wurde. 


DR XVY 
Bei suspendierten Tasks können die Registerinhalte 
mit Hilfe des 'SM'-Kommandos verändert werden, wenn 


man die bei DR angegebenen Adressen (s. linker 
Rand) der Registerablageplätze verwendet. 
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Edit a File 


SYNTAX: ED.subtaskname [PRIO integer3] [parameterlist] (Form 1) 
ED [PRIO integer3] [parameterlist] (Form 2) 


Beschreibung: 


parameterlist: 


Sichtgerät: 


Es wird eine flüchtige unabhängige Task mit vom 
Nutzer (1.Form) oder vom System (2.Form) vorgegebe- 
nem Namen erzeugt und gestartet. Ein vom System 
(2.Form) generierter Name hat den Aufbau EDITxx. Die 
Standardpriorität für den Editor ist 15 ( OF hexa- 
dezimal). 

Der Editor ist reentrant, es kann also mit dem 
gleichen Code (auch ROM-Resident) auf mehreren 
Terminals gleichzeitig gearbeitet werden. (Es müssen 
nur unterschiedliche Dateien editiert werden). 


Es werden die Parameter SC (Scratch-Datei auf der 
der Editor arbeiten soll) und SI (Source-Input, Port 
über den der Nutzer Eingaben tätigt) akzeptiert. 


SC: muß eine ED.datei der Form ED.xyz sein, sonst 
wird der Editor sofort mit der Meldung .WRONG LDN 
(MODE) abgebrochen und verschwindet aus dem System. 
SI: muß ein Sichtgerät sein, welches im System als 
"dialogfähig' bekannt ist (siehe SD, DD -Befehl), 
sonst erfolgt ein Abbruch mit der Meldung wie bei 
falschem SC-Paramter. Die Angabe von SC kann ent- 
fallen. Die folgenden Aufrufe sind äquivalent: 


ED ED:name bzw. ED SC ED:name und ED SC=ED:name 


Bei fehlenden Parametern wird SC=ED:SIx und SI=Ay: 
eingesetzt, wobei x die LDN der Schnittstelle des 
Nutzer ist. 

Es ist jedes Terminal geeignet, welches folgende 
Bedingungen erfüllt: (Typ: TELEVIDEO TVI 925, 950 
und kompatible) 


- 24 oder 25 Zeilen & 80 Zeichen. 

- Automatischer UP-Scroll bei LF in der untersten 
Bildschirmzeile. 5 

- Autowraparound = autom. CR+LF nach Anschlag des 


80. Zeichens einer Zeile. (No Wrap parametrier- 
bar) 

- Kein automatischer LF nach Erhalt eines CR. 

- Cursorsteuerung über S0OA,$S0B,$0C,$08,$16. 


(Umparametrierung auf ESC-Sequezen möglich) 
- Terminal wie bei Bedientask im Full-Duplexmode. 


Editorsteuerung: Nach dem Start wird die erste Seite des Files 


aufgeblättert. Existierte der File vorher nicht, so 
wird er mit der Zeile 'File was installed by ED' 
als einziger Information neu im System eingerich- 
tet. Der Editor arbeitet ohne Zwischendatei direkt 
auf dem angegebenen ED-File, Änderungen sind daher 
von sofortiger Wirkung auf die Datei. 
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Betriebsmodi: 


Terminals: 
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Die Veränderung einzelner Zeichen erfolgt durch 
Anfahren der Position auf dem Bildschirm und Ein- 
gabe eines neuen Zeichens. (Replace-Mode). Der 
Editor arbeitet grundsätzlich im Replace-Mode. 


Sonderfunktionen werden durch Anschlag des Zeichens 
'ESC' angewählt, wobei der nachfolgende Buchstabe 
die Operation bezeichnet. Die Operationsbezeichner 
wurden im Sinne einer leichten Merkbarkeit gewählt 
(siehe folgende Operationstafeln). 


Es sollten nur Zeichen eingegeben werden, die einen 
ASCII-Wert von größer $1F haben. Enthält die Datei 
Zeichen, deren Wert kleiner als $1F ist (z.B. durch 
einen COPY-Befehl erzeugt), so werden diese mit dem 
Zeichen @ abgebildet. 


Abweichend von dieser Regel darf in die erste 
Spalte ein Zeichen $04 (EOT) eingegeben werden, um 
das Ende des Textes zu markieren (für eine Übertra- 
gung via Schnittstelle wichtig). 


Der Editor kennt zwei Betriebsmodi, die durch das 
SD-Kommando des Bedieninterfaces eingestellt wer- 
den. 


Der Normalmode ist standardmäßig eingestellt. Der 
CursorESCmode kann mit dem Kommando SD Ax:tl 01 
eingestellt werden. Der Normalmode wird mit SD 
Ax:+1 00 eingestellt. 


Die ESC-Sequenzen für Ein/Ausfügungen wurden so 
gelegt, daß möglichst viele unterschiedliche Termi- 
nals benutzt werden können. 


Tabelle der vom Editor genutzten Zeichen zur Cur- 
sor-steuerung: 


Funktion Normalmode CursorESCmode 
DOWN $0A oder $16 ESC B 
UP $0B ESC A 
RIGHT Soc ESC C 
LEFT 508 ESC D 
Insert Char ESC curs-right ESCQ 
Delete Char ESC curs-left ESC W / ESC P 
Insert Line ESC curs-down ESC E / ESCL 
Delete Line ESC curs-up ESC R/ ESCM 


TELEVIDEO TV925 ITOH CT 101 
oder kompatible HP 2648 o.konm. 
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Funktionen: 


Mnemonik Code Erklärung 
Forward 10 Li ESC F Fenster 19 Zeilen weitersetzen 
Exit ESC X Ausstieg aus dem File, Beendigung 


des Editors. 


Home ESC H 1. Zeile, 1.Spalte des Files an- 
laufen und Keybuffer löschen. Der 
File wird verdichtet. 


Ins Keybuffer ESC I Der Keybuffer wird vor der Zeile 
in der der Cursor steht einge- 
setzt. 

Keybuffer ed. ESC K Der Keybuffer wird angelaufen und 


es können in ihn Zeichen ein- 
gesetzt werden. 


New Numbers ESC N Alle Zeilennummern werden aktu 
alisieren und Keybuffer löschen. 


Overlay Keyb. ESC O Der Keybuffer wird mit der Zeile, 
in der der Cursor steht, ab der 
Position des Cursors, gefüllt. 


Search Keyb. ESCS Es wird in dem File nach dem im 
Keybuffer enthaltenen Text ge- 
sucht. Die Suche beginnt ab der 
aktuellen Cursorposition in Rich- 
tung Fileende. 


TabulatorSet ESC T Tabulatormarke setzen 


Unmask Tabul. ESC U Tabulatormarke löschen 


Verify Pict. ESC V Fenster aus der Datei neu nach- 
laden. Hilft bei unklaren Situa- 
tion. 

Zone Select ESC 2 Das Fenster wird auf die angege 
bene Zeilennummer neu positio 
niert. 


Bei den o.a. Escape-Sequenzen dürfen auch kleine Buch- 
staben mit gleicher Wirkung benutzt werden. Es empfiehlt 
sich, von Zeit zu Zeit über ESC H eine Verdichtung des 
Files zu forcieren, insbesondere wenn nur noch wenig 
Platz im Speicher ist. Bricht der Editor seine Bearbei- 
tung mit der Meldung ..NO MEM. SUSPENDED ab, so kann 
nach Bereitstellung von genügend Speicher die Task mit 
CONTINUE fortgesetzt werden. Gelingt dies nicht, so kann 
der ED-File dennoch gelesen werden, allerdings ist die 
zuletzt aufgeblätterte Seite nicht im aktuellen Zustand. 
Es sollte nun unbedingt die Task mit einem UNLOAD ent- 
fernt werden, da bei einer Fortsetzung des Editors nach 
gewaltsamer Veränderung des Files ein Absturz bzw. eine 
"BAD POINTER. EXITUS' Meldung erscheint und Veränderun- 
gen am File nicht ausgeschlossen sind. 


Rev. RTOS-UH Dec. 1986 B-II-25 


Anmerkungen: 


Beispiel: 


B-II-26 


Das Bedieninterface ist während einer Editor-Sit- 
zung über CTRL A nicht erreichbar. Sie müssen 
vorher über ESC X aussteigen. Allerdings kann über 
die BREAK-Taste dennoch das Bedieninterface bei 
gleichzeitig aktivem Editor aktiviert werden. Dies 
ist jedoch nur für den Notfall vorgesehen. Die 
aktuelle Seite des ED-Files kann über ESC V restau- 
riert werden. 


Zum Löschen der Anzeige des Keybuffers muß dieser 
über ESC K angelaufen werden und dann mit Cursor UP 
verlassen werden. Der Inhalt bleibt aber weiterhin 
erhalten (z.B. für die Funktion Suchen: ESC S). 


Wenn das verwendete Terminal (z.B. ITOH CT 101) 
keinen AutoWrapAround-Mode besitzt oder dieser 
nicht wie oben angegeben funktioniert, so kann mit 
SD Ax:+1l yy der Editor umparametriert werden. Das 
Setzen des Bit mit Wertigkeit 2 in yy bewirkt, daß 
die LF-Generierung nun vom Editor übernommen wird. 
Das Terminal muß nun so eingestellt werden, daß 
nach Anschlag des 30.Zeichen in einer Zeile der 
Cursor in der 80.Spalte stehen bleibt. Es können 
z.B. mit SD Ax:+1 23; die Funktionen 'curs-ESC' und 
'no wrap around' vereinbart werden. 


SD A2: 3301; Port2: dialog, LF nach CR, Curs=ESC 
IN / OUT 
ED ED:marion Der File 'marion' wird editiert. 


Nach der Vereinbarung eines "Working Directorys' 
(siehe Befehl CD) können die Dateien hierarchisch 
organisiert werden: 


der Nutzer hat das Working Directory ED:ABC ange- 
legt. Die Eingabe von 


ED Affe richtet eine Datei mit dem Namen 
ED:ABC/AFFE ein und diese wird editiert. 


Durch die Verwendung von Working Directorys kann im 
Mehrnutzerbetrieb ein versehentliches Benutzen von 
Dateien anderer Nutzer vermieden werden. Dazu rich- 
ten sich alle in einem System arbeitenden Nutzer 
unterschiedliche Working Directorys ein, über diese 
erfolgt dann der Zugriff auf die einzelnen den 
Nutzern zugeordneten Dateien. 


Nutzeri legt mit CD ED:Nutzl sein Workingdirectory 
für sich fest, Nutzer2 legt CD ED:Nutz2 fest usw. 


Wenn nun beide Nutzer das Kommando: 


ED mein eingeben, editieren sie die folgenden im 
System enthaltenen Files: 

Nutzerl: ED:Nutzi/mein und 

Nutzer2: ED:Nutz2/mein usw. 
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Enable Processinterrupt ENABLE 


SYNTAX: 


ENABLE EV hexnumß; 


Beschreibung: Mit dem aus hexnum8 erhaltenen Bitmuster werden die 


Beispiele: 


Hinweis: 


Processinterrupts freigegeben, an deren Bitposition 
eine '1' in hexnumd enthalten ist. Es können 32 
verschiedene Processinterrupts angesprochen werden. 


ENABLE EV 1 Processinterrupt Nr.1 wird freigegeben 
ENABLE EV FF Nr.1-16 werden freigegeben 
ENABLE EV 0 unsinnig, da ohne Wirkung 


Diese Anweisung entspricht der gleichnamigen PEARL- 
Anweisung und erfüllt die gleiche Funktion auf 
System-Kommandoebene. 
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List Files 


SYNTAX: FILES device-list; 


Beschreibung: 


Beispiele: 


B-II-28 


Es werden die Namen der auf den angegebenen Geräten 
zur Zeit aktiven Files ausgegeben. Bei Floppy 
/Winchester-Files sind das nur solche, die durch 
eine ATTACH-Operation (meist implizit) aktiviert 
wurden. Bei ED-Files werden alle Files des EDFM- 
Handlers ausgegeben. 


Bei Benutzung eines Working-Directorys (siehe CD- 
Befehl) werden nur die dem vereinbarten Working 
Directory zugeordneten Files ausgegeben. 

Wird ein Gerät angegeben, welches nicht in Files 
untergliedert ist (siehe SD, DD- Befehl), so wird 
dies als Kommandofehler behandelt. 

FILES ED: FO: alle aktiven ED: und F®: Files 


FILES Fl: 
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Formatting of a Flo Winch. (UH-Fman FORM 


SYNTAX: FORM 
FORM 
FORM 


Beschreibung: 


"forminfo': 


Winchester: 


nur Atari: 


Hinweis: 


S Floppydevice:forminfo; (Single density) 
D Floppydevice:forminfo; (double density) 
D wWinchdev:forminfo; (Winch nur doub) 


Auf dem angegebenen Floppylaufwerk wird neben der 
eher hardwaretechnischen Softsektorierung auch das 
Filesystem des UH-Fman installiert. Alle bisher auf 
der Floppy/Winch. gespeicherten Daten sind unwider- 
ruflich verloren. 


Hier wird mitgeteilt, welche Aufteilung in wieviel 
Sektoren, ob 5" oder 8" und ob ggf. beidseitig 
formatiert werden soll. Außerdem wird die Anzahl 
der Tracks mitgeteilt. Insgesamt ergeben sich so 8 
Kombinationen für Floppies, wobei 3,5" genau wie 5" 
behandelt werden: 


Fx:A8SSyyy -> 26x(128/256 by), 8", singlesided. 
Fx:B8SSyyy -> 8x(512/1024 by), 8", singlesided. 
Fx:A8DSyyy -> 26x(128/256 by), 8", doublesided. 
Fx:B8DSyyy -> 8x(512/1024 by), 8", doublesided. 
Fx:A5SSyyy -> 16x(128/256 by), 5". singlesided. 


Fx:B5SSyyy -> 5x(512/1024 by), 5", singlesided. 
Fx:A5DSyyy -> 16x(128/256 by), 5", doublesided. 
Fx:B5DSyyy -> 5x(512/1024 by), 5". doublesided. 


Hx:W5Hzyyy -> 256-er Sektor und z Köpfe/Track. 
Hx:X5Hzyyy -> 1024-er Sektor und z Köpfe/Track. 


yyy: 1- bis 3-stellige dezimale Anzahl Tracks. 


Hx:A5SH8kkk -> 512-er Sektor siehe ATARI F-I !! 


Nach dem Formatieren wird jeder Block 
(Block=strack) gelesen und im Fehlerfall für das 
Filesystem ausgesondert. Bei mehr als 8 unbrauchba- 
ren Blöcken wird die Operation mit WRONG I/O 
abgebrochen. Zur Zeit werden die Blöcke aber nicht 
auf Übereinanderfaltung geprüft (z.B. wenn Drive 
bei DS nur eine Seite schreiben kann). Bei manchen 
Laufwerken lassen sich mehr Spuren formatieren als 
angegeben, Sie gefährden dann aber die Austausch- 
barkeit zu anderen Systemen. 


FEHLERMELDUNGEN: >>...:Fx DRIVE_NOT_READY 


Beispiele: 


en 
»in 
iierseis 


DEVICE_WRITE_PROTECTED 
TRACK_000_NOT FOUND S 
ID_FIELD_NOT_FOUND (Beim Verify). 


8" Disketten lassen sich nur auf genügend schnel- 
len Rechnern in double density (16us/byte!) bear- 
beiten. 


FORM S F1:A8SS77; FORM D F0:B5DS80; 
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Inspect FREE Storage on Disc 


SYNTAX: FREE 


Beschreibung: 


Beispiel: 


Hinweis: 


Beispiel: 


B-II-30 


£floppy device 


Es wird der noch vorhandene freie Platz auf 
angegebenen Floppydisk bzw. Harddisk ausgegeben. 


FREE Fl: 


Wurde ein Working-Directory 
Befehl CD), wirkt der Befehl 
vereinbarte Device. 


Es wurde das Working-Direcotry 
Befehl FREE wirkt dann auf das 


der 


vereinbart (Siehe 
auf das im Directoy 


FO: vereinbart. 


Floppydevice FO. 
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Go and execute 


SYNTAX: GO AD 
Go.su 
GO.su 


Beschreibung: 


Beachte: 


Beispiele: 


Hinweis: 


Go 
hexadr 
btaskname [ PRIO integ3 ] AD hexadr 
btaskname AD hexadr 
Es wird vom System eine Subtask gebildet, die 
entweder einen Systemnamen 'GOTOxx' oder den ange- 
gebenen Tasknamen (2.Form) erhält. Die Task wird 


mit dem minimal möglichen Workspace ausgestattet 
und erhält die angegebene Startadresse. Anschlies- 
send wird sie mit der angegebenen Priorität bzw. 
der Defaultpriorität 50 gestartet. 


Dies ist eine Hilfskonstruktion für maschinennahe 
Programmierung. So kann eine kurze Codesequenz 
schon mal ohne jeden Taskheader zur Ausführung 
gebracht werden. Auch können im ROM liegende User- 
tasks ggf. über diesen Weg exekutiert werden. 
Privilegierte Befehle führen zur Fehlermeldung >> 
xyz NOT PRIVILEGED. 


GO.TEST AD 2000; 
GO AD 5000 SZ 5000; 


GO.CHECK PRIO 2 AD 8E009; 


Es lassen sich noch SI und CO - Parameter 
angeben, die jedoch nur dann Bedeutung haben, wenn 
der Anwender sich die Informationen aus dem gene- 
rierten Subtaskheader selbst herausholt. 


Durch Angabe eines SZ-Parameters kann die Größe des 
für die Subtask angeforderten Task-workspace vor- 
bestimmt werden. (siehe Beispiel) 
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List Task States L 


SYNATX: L; 


Beschreibung: Für jede existierende Task werden folgende Daten 
aufgelistet: 


Adr Prio/User (resident) StatusıTWS=xxxx| |PC=xxxx! Name 


Prio: Gibt die Priorität der Task an. Prioritäten von Ö - 
999 sind Anwenderprioritäten. Negative Prioritäten 
liegen über den Anwenderprioritäten und sind dem 
Betriebssystem vorbehalten. 


User: Gibt an, welchem User die Task zugeordnet ist. User 
Nummern sind fortlaufend von ® bis n, entsprechend 
der Zahl der seriellen I/O-Kanäle vergeben. 


Resident: Erscheint bei Tasks, deren Taskworkspace auch nach 
dem Terminieren der Task erhalten bleibt. Bei 
zyklisch aktivierten Tasks mit kurzen Einplanungs- 
intervallen kann das Resident Attribut zur Verkür- 
zung der Verwaltungszeiten benutzt werden. 


TWS= Hier wird die Adresse des Taskworkspace ausgegeben. 
Ist sie 00000000, so besitzt die Task noch keinen 
Workspace. (z.B. hat sie noch keine CPU-Zeit bekom- 
men, oder es war noch zu keinem Zeitpunkt genügend 
Platz) 


PC= Hier wird der letzte vom Dispatcher auf Task- 
Grundebene gültige und festgestellte Wert des Pro- 
grammzählers ausgegeben. 


Name Gibt den Namen der Task an. Tasknamen, die mit '#' 


beginnen, sind Systemtasks und lassen sich nicht 
mit UNLOAD entfernen. 
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Status: 


Rev. 


RUN 


cWs? 


1/0? 


SCHD 


SEMA 


SUSP 


DORM 


PWS? 


Hier werden die folgenden Abkürzungen eingetragen: 
Die Task ist derzeit in der Bearbeitungschlange 


Task wartet auf Zuteilung eines Communication- 
Elementes, weil sie infolge reger Ausgabetätigkeit 
auf ein langsameres Gerät ihr Kontingent ausge- 
schöpft hat. 


Task wartet auf Beendigung einer Ein-/ Ausgabe 


Task ist für eine Aktivierung vorgeplant, die 
entsprechende Bedingung (Zeit,Ereignis) ist aber 
noch nicht eingetreten. 


Task wurde durch vergebliches REQUEST auf eine 
belegt Seamphorvariable blockiert. 


Task wurde suspendiert und wartet auf die CONTINUE- 
Operation. (Bei System I/O-Tasks wird auf das Ende 
des laufenden Records gewartet). 


Die Task ruht zur Zeit, keine Aktivität 


die Task wartet darauf, daß irgendwo ein passendes 
Speicherstück frei wird. In der Regel wird auf 
Procedurworkspace gewartet, es ist aber auch mög- 
lich, daß auf ein 'CE' gewartet wird, wobei das 
zustehende Kontigent (s. CWS? oben) noch nicht 
ausgeschöft ist. 


Die Task ist durch mehrere Bedingungen gleichzeitig 
blockiert, z.B. weil durch die (in PEARL nicht 
erlaubte) fremdwirkende SUSPEND-Operation die Task 
zusätzlich verriegelt wurde. 
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Load and Link Programm LOAD 


SYNTAX: LOAD 
LOAD. 
LOAD 


Beschreibung: 


loadspeclist 


Adressangabe: 


Programmgröße: 


B-II-34 


subtaskname [ PRIO integer3 ] [ loadspeclist ] 
[ PRIO integer3 ] [ loadspeclist ] 


Es wird eine Subtask generiert, deren Name entweder 
durch 'subtaskname' vorgegeben wird oder mit Namen 
'LOADxxX' vom System gewählt werden soll. In beiden 
Fällen kann die Priorität dieser Lader-Task durch 
eine max. 3-stellige Ganzzahl vorgegeben werden. 
Bei nicht angegebener Priorität wird ein Wert von 
20 eingesetzt. 


Fehlt der Zusatz 'loadspeclist', so wird ein Lade- 
vorgang vom Standard-Ladefile des Systems und des 
Nutzers eingeleitet. Es wird auf den von unten nach 
oben gesuchten ersten freien passenden Speicher- 
bereich geladen. 


Bleiben noch globale Symbole offen, durchsucht der 
Lader den Scan-Bereich des Systems nach 17-Schei- 
ben, um Referenzen gof. von dort zu befriedigen. 
Sind dann immer noch globale Bezüge offen, wird der 
Lader mit einer entsprechenden Meldung suspendiert. 


Der Ladevorgang kann durch die Angabe der "load- 
speclist' parametriert bzw. als bindendes Laden 
formuliert werden. 


ist eine Liste von Geräte/File-Namen und Adreß- 
oder Größenangaben. Die Elemente dieser Liste wer- 
den durch Leerzeichen oder Kommata getrennt. 


"AD hexnum® oder AD=hexnumd 


Dabei steht 'hexnum3' für die maximal 8-stellige 
Hexadezimalzahl, bei der der Lade/Bindevorgang 
beginnen soll. Erst der hier generierte Lader prüft 
später, ob der Adreßbereich überhaupt zum Laden 
verfügbar ist. Diese Adreßangabe ist außer für 
Testzwecke (glatte Adresse) aus der Sicht von RTOS- 
UH ein unerwünschter Eingriff. 


SZ hexnum6 oder SZ=hexnum6 


Mit 'hexnum6' wird die Größe des ersten zu ladenden 
Modules vorgegeben und damit die Größenangabe - 
falls vorhanden - im Ladereingabetext übersteuert. 
Dies darf natürlich nur so geschehen, daß der S2- 
Wert größer als die tatsächliche Modulegröße ist. 
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Geräte/Filenamen: Es werden die Parameter SI (S-Rekord-Input), SC 


Beispiele: 


und LO (List-Output) akzeptiert. Wenn LO nicht 
angegeben wird, so werden nur fehlende Globalsym- 
bole auf dem Defaultgerät aufgelistet. LO ED:LABEL 
z.B. bewirkt, daß beim Ladeschluß die Zuordnungsta- 
belle Symbol/Adresse in die Edit-Datei "LABEL' 
geschrieben wird. 


Mit Hilfe des Parameters SI kann eine Liste von 
Modulquellen angegeben werden. Die einzelnen Quel- 
len werden durch das Zeichen '+' getrennt. Soweit 
Querbezüge durch globale Symbole zwischen den ein- 
zelnen Modulen existieren, werden sie vom Lader 
durch einen integrierten Bindevorgang realisiert. 


Bsp: SI=ED:LIBIHED:LIB2 ('SI=' kann entfallen). 


Der Parameter SC (Source after Continue) dient zur 
Angabe einer ggf. benutzten 'Reservedatei', die der 
Lader immer wieder als Quelle zur Fortsetzung des 
Bindevorgangs anläuft, solange noch unbefriedigte 
Globalreferenzen existieren. Nach der Meldung xyz.. 
SUSPENDED LOADER INPUT wird die Auffüllung dieser 
Datei bzw. der Defaultdatei (ED:LB bei fehlendem 
SC) erwartet und anschließend ein CONTINUE-Kommando 
für die Lader-Subtask. Will man die Referenzen 
nicht nachreichen, weil man absolut sicher ist, daß 
sie nicht benutzt werden, so sollte aus Platzgrün- 
den die Lader-Subtask mit UNLOAD eliminiert werden. 


LOAD.X PRIO 5 AD 6000 SZ 2000 B2:+B2:+F0:QUELLE 


Subtaskname ist X, Priorität des Ladevorgangs ist 
5. Das erste von Port 2 kommende Modul wird ab 
Adresse 6000 geladen und auf die Größe von 2900 
vergrößert. An dieses Modul wird das nächste von 
Port 2 stammende Modul angebunden. Die Ablage- 


adresse dieses Moduls ist nicht bekannt. Das 
gleiche gilt für das dritte von Floppy - Laufwerk 
0, File "'QUELLE' - stammende Modul, welches eben- 


falls hinsichtlich der globalen Symbole angebunden 
wird. 


LOAD SZ 5000 F1:TEST LO Al: SC B2: 


Der File 'TEST' von Floppy Laufwerk 1 wird geladen 
und die Liste der globalen Symbole samt Adressen 
über Port 1 ausgegeben. Der Lader hat den Namen 
LOADxx und läuft mit Priorität 20. Unbefriedigte 
Globalreferenzen können, falls vorhanden, über das 
Port 2 ergänzt werden. 


Fehlermeldungen: Beim Laden von Dateien, die durch den PEARL- 


Compiler erzeugt wurden, können bei fehlenden Pro- 
grammarken oder anderen Fehlern unbefriedigte Vor- 
wärtsbezüge zurückbleiben, die von der Ladertask 
moniert werden. Daher dürfen nur als fehlerfrei vom 
Compiler ausgewiesene Module geladen werden! 
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Hinweise: 


B-II-36 


Doppelt definierte Globalsymbole werden während des 
Ladevorganges aufgelistet, wobei die Liste nicht 
vollständig sein muß, weil ein Überlauf des zen- 
tralen Meldepuffers möglich ist. 


Zeichen, mit denen der Lader nichts anfangen kann, 
führen zum Abbruch des Ladevorgangs mit der Meldung 
"WRONG LOADER INPUT'. 


Die Anzahl vorgebbarer Modulquellen ist nur durch 
die Puffergrenze im Bedieninterface begrenzt. 


Mit dem PEARL-Einphasencompiler ohne S=... erzeugte 
Dateien enthalten in ihrem Kopf nicht die Programm- 
größe des Modules, sondern einen Pauschalwert 
(2000). Bei Programmen ,„ in denen nur ein PEARL- 
Codiertes Modul vorkommt, sollte dieses als erstes 
geladen werden und die tatsächliche Programmgröße 
(s. Compilerbilanz) durch 'SZ' vorbesetzt werden. 


Es kann eine praktisch unbegrenzte Zahl solcher 
LOAD-Kommandos ab etzt werden, die im Mult 
king parallel bearbeitet werden. Dabei dürfen se 
Ladevorgänge keine gemeinsamen Quellfiles benutzen, 
da sonst die Eingabedatei wie das Reh von einem 
Rudel Wölfe 'zerfleischt' würde. 


Der von einem solchen Subtasklader gerade bear- 
beitete Speicherbereich wird während des Lade- 
vorganges als Speichersektion vom Typ 'PWSP' in der 
Verwaltung von RTOS-UH geführt. Wird eine solche 
Ladersubtask terminiert (und zweckmäßigerweise auch 
mit UNLOAD entfernt), so verschwindet auch das 
zuletzt angefangene Modul aus der Verwaltung. 


Rev. RTOS-UH Dec. 1986 


List User Task LU 


SYNTAX: LU 


Beschreibung: Die Anweisung wirkt wie das 'L'-Kommando, jedoch 
werden die beim Kaltstart des Systems bereits 
vorhandenen Systemtasks nicht mit aufgelistet. 


Beispiel: LU 
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Make Directory MKDIR 


SYNTAX: MKDIR devicebezeichner:pathlist 


Beschreibung: 


device- 


bezeichner: 


pathlist: 


Beispiele: 


Hinweise: 
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Der Befehl MKDIR erlaubt die Einrichtung von Subdi- 
rectorys und ermöglicht damit eine hierarchische 
Dateiverwaltung. Mit dem Befehl RMDIR lassen sich 
vereinbarte Directorys wieder löschen. 


Es sind Fx: für Disketten- oder Hx: für Harddisk- 
laufwerke erlaubt. 


1 bis 7 Buchstaben oder Zahlen pro Element der 
pathlist. Das erste Zeichen muß ein Buchstabe sein. 
Die Elemente sind durch '/' zu trennen. 


MKDIR FO:USER1 

Auf der Diskette in Laufwerk FO: wird das Subdirec- 
tory USER1 angelegt. Dort können jetzt Dateien 
abgelegt werden, z.B. mit 

COPY ED:SI>FO:USER1/DATEI1 

MKDIR FO:USER1/DATENI 


In dem Subdirectory USER1 wird ein weiteres Subdi- 
rectory DATENl angelegt. 


Mit DIR F®: bekommt man jetzt alle Dateien und 
Directorys der Root-Ebene. Directorys sind am nach- 
gestellten Schrägstrich zu erkennen. Mit DIR 
FO:USER1l1 erhält man die Dateien und weiteren Subdi- 
rectorys des Directorys USERI1. 
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No Tracing for specified Task NOTRACE 


SYNTAX: NOTRACE taskname, taskname 


Beschreibung: Die angegebene Task wird aus dem Trace-Mode ent- 
lassen (siehe Trace). Dabei wird die Breakpoint- 
adresse gelöscht. 


Befand sich die angegebene Task nicht im Trace- 
Mode, so ist die Anweisung ohne Wirkung. 


Wie bei der TRACE-Anweisung wird der aktuelle Lauf- 


zustand der Task durch diese Anweisung nicht geän- 
dert. 


Beispiele: NOTRACE TEST XYZ 


NOTRACE INIT 
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Output-device specification {0} 


SYNTAX: O device 


Beschreibung: 


device: 


Beispiele: 
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Die Ausgabe des Bedieninterfaces wird auf das ange- 
gebene Gerät umgeschaltet. Alle Ausgaben des Be- 
dieninterfaces (außer Fehlermeldungen), die durch 
die folgenden Kommandos dieser Zeile veranlaßt 
werden, erfolgen auf dem angegebenen Gerät, 


Es werden alle RTOS-UH bekannten Devices akzep- 
tiert. z.B. Alts A2%, EDrdir usw. 
© As lLaS 


Es werden die Taskliste und die Speicherbelegung 
über den Port 2 ausgegeben. 


O ED:TEST;DIR F0:;0 F1:X;S 
Directory von Laufwerk FO: in die Datei ED:TEST 


schreiben, danach Speicherbelegung auf Floppyfile 
Fl:x. 
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Compile PEARL- Programm PEARL 


SYNTAX: PEARL oder P 
PEÄRL.subtaskname [ PRIO integer3 ] [ parameterlist ] 
PEARL [ PRIO integer3 ] [ parameterlist ] 


Beschreibung: 


parameterlist 


Arbeitsspei- 
chergröße: 


Es wird eine flüchtige unabhängige Subtask gene- 
riert, deren Name entweder durch "subtaskname' vor- 
gegeben wird, oder vom System mit 'PCOMxx' bestimmt 
wird. xx ist eine zweistellige Hexzahl mit auto- 
matischer Weiterschaltung. Ebenso kann mit dem 
Kommando die Priorität der Bearbeitung durch eine 
3-stellige Ganzzahl festgelegt werden. Fehlt die 
PRIO Angabe, wird ein Standardwert von 20 einge- 
setzt. Fehlt die 'parameterlist', so wird ein 
Übersetzungslauf gestartet, der von dem Standard- 
Inputfile des Systems und des Nutzers liest und auf 
dem entsprechenden Outputfile die $S-Records ablegt. 
Ein Listing wird auf das entsprechende Terminal 
ausgegeben. 


ist eine Liste von Geräte/Filenamen und einer 
Größenangabe. Die Elemente der Liste werden durch 
Leerzeichen oder Kommata getrennt. 


SZ hexnum6 oder SZ=hexnum6 


Mit hexnum6 kann der dynamische Arbeitsspeicher des 
Compilers bestimmt werden. Der Mindestwert beträgt 
500, vom System wird ein Wert von 2800 (entspricht 
ca. 1® KByte) eingesetzt. Maximal ist ein Wert von 
7FFE zulässig. Die gewählte Speichergröße beein- 
£flußt die Übersetzungsgeschwindigkeit praktisch 
nicht. Faustregel für sehr lange PEARL-Programme 
(mehr als 4000 Zeilen): 


SZ=(Max.Zahl lebender P-Symbole)*14 +2009 


Geräte/Filenamen: Es werden die Parameter SI (Source Input), LO 


Beispiele: 


(List Output) und CO (Code Output) ausgewertet. Für 
fehlende Angaben werden die Default-Werte des 
Systems und Nutzers eingesetzt. Wird der LO-Parame- 
ter auf NO gesetzt, so gelten dennoch die für LO 
gemachten Vereinbarungen, wenn z.B. die Kopf- und 
Bilanzzeile oder fehlerhafte Programmzeilen ausge- 
geben werden müssen. 


PEARL.X PRIO 40 SZ 5000 FO:TEST>F1:BCOD LO Al: 


Das Programm auf Floppylaufwerk © in der Datei 
'"TEST' wird übersetzt. Der Code wird in die Datei 
"BCOD' auf Floppylaufwerk 1 geschrieben. Das Über- 
setzungsprotokoll wird über die Schnittstelle Al: 
ausgegeben. Name der Subtask ist X. 
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Hinweise: 
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P 


Mit den Defaultwerten für SI (ED:SI für USERO), LO 
(Al: für USER®) und CO (ED:SR für USER) wird ein 
Compiler (Subtaskname PCOMxx) gestartet. 


P.PEARL A2:>NO LO Al: LO NO 


Der Quelltext wird über Port A2: erwartet, es wird 
kein Code erzeugt und die Ausgabe fehlerhafter 
Zeilen erfolgt über Port Al:. Name der Subtask ist 
PEARL. 


Der Compilercode ist wiedereintrittsfest, so daß 
beliebig viele - sofern Platz für den dynamischen 
Speicher ist - verschiedene Übersetzungsvorgänge 
gleichzeitig im Multitasking ablaufen können. 


Fehlermeldungen und weitere Eigenschaften des 
PEARL-Compilers siche in den Kapiteln C-I f££. 
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Prevent activation of Task PREVENT 


SYNTAX: 


PREVENT taskname 


Beschreibung: Alle Einplanungen der einzelnen Tasks werden sofort 


Beispiel: 


Hinweis: 


gelöscht. Außerdem werden eventuell bereits im 
Aktivierungspuffer stehende Neuaktivierungen durch 
Ausräumen des Puffers verhindert. 


PREVENT ABCD,TT 


PREVENT init 


Trotz gelöschter Zeitplanung bleibt die Aufmerksam- 
keit der Planungsuhr für den in Aussicht genommenen 
Zeitpunkt erhalten. Bei 'CLOCK' wird also unter 
"NEXT SCHED' eventuell der Termin noch aufgeführt, 
bleibt aber wirkungslos. 
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PREPARE for READ ONLY MEMORY PROM 


SYNTAX: PROM nanme; 


PROM name*; 


Beschreibung: Aus in den RAM-bereich geladenen Programmteilen 


1) 


2) 


(Modul oder Task) werden Scheibendaten für das 
RTOS-UH-Autolink, die Systemkonfigurierung in der 
Kaltstartphase, erzeugt. Diese Scheibendaten werden 
als S-Records auf das Ausgabemedium des Bedien- 
interfaces ausgegeben; für jeden zu "prommenden' 
Speicherbereich werden ein SO-Record (enthält Län- 
genangabe), mehrere S2-Records und ein S9-Record 
erzeugt. S2-Records werden von RTOS-UH stets rela- 
tiviert, d. h. die Adressangabe im S2-Record zählt 
stets relativ zur Ladeadresse. Jedem S-Record wer- 
den 4 'NUL'-Bytes vorangestellt, um den EPROMmer 
(meist ohne Protokoll!) nicht zu überrennen. Mit 
den S-Rekords kann ein EPROM-Gerät (etwa MODIPROG) 
direkt angesteuert werden, um die Scheibe(n) im 
Scanbereich im ROM abzulegen (s. E-VII, ggf. Scan- 
bereich erweitern!). 

Beim Einsatz des PROM-Be£fehls sind zwei 
Einsatzfälle zu unterscheiden: 


Prommen normal compilierter und geladener PEARL-oder 
Assembler-Programme 

"name" kann ein Modul- oder ein Taskname sein. Folgt einem 
Modulnamen ein Stern '*' (keine wildcard), so werden alle 
auf dieses Modul im Speicher unmittelbar folgenden Tasks 
neben dem Modul ebenfalls bearbeitet. 

Es werden Scheibendaten für 13-er Scheiben erzeugt, d. h. 
es wird ein Speicherbereich quasi als Dump im Eprom 
abgelegt. Beim Erzeugen des Scheibentextes werden Nullda- 
tenblöcke durch die im 13-Code vorgesehenen Datablöcke weg- 


gekürzt. Es empfiehlt sich daher unbedingt, nicht benö- 
tigte Initialdaten von Modulvariablen vor dem Absetzen des 
Befehles zu 'Nullen', etwa durch eine Hilfstask, die man 


vorher laufen läßt. 

Nach Einbau der so erzeugten Scheibe generiert RTOS-UH beim 
Kaltstart die entsprechenden Module bzw. Tasks an genau 
die gleichen Adressen, die die Objekte im Moment des PROM- 
Befehles hatten. Es muß vom Anwender dafür gesorgt werden, 
daß RAM-Plätze nicht doppelt belegt werden! (RTOS-UH 
richtet dann den Block, der später vom Scanner erfaßt wird, 
einfach nicht ein). 

Sollen Tasks beim Warmstart automatisch loslaufen, so 
benutzen Sie vor dem PROM-Befehl den Befehl 'AUTOSTART 
modulname,taskname'. 


Prommen von mit der 'CODE=$','VAR=$' - Option erzeugten 
PEARL-Programmen 

"name" kann nur ein Modulname sein; "name*" wird impliziert 
und muß nicht angegeben werden. 

Nach dem Laden des kompilierten Programmes erscheint das 
Modul incl. aller Tasks als Speicherblock mit der Kennung 
'PMDL' beim S-Kommando. Es können keine Tasks aus dem Modul 
gestartet werden. 
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Der PROM-Befehl erzeugt nun nur für den Bereich der 
Modulvariablen eine 13-er Scheibe, die beim Kaltstart des 
Systems den Modulvariablenblock auf der mit 'VAR=$' angege- 
benen Adresse einrichtet. Nulldatenblöcke werden, wie im 
Fall 1), weggekürzt; daher sollte das Programm mit einer 
Size-Angabe über die 'SC=' Option (Size and Clear) über- 
setzt werden (spart EPROM-Platz). Tasks werden in eine 1-er 
Scheibe umgesetzt, Prozeduren ohne Scheibenkennung abge- 
legt. 

Es werden zwei SO- .. S9I- Record-Blöcke erzeugt; der erste 
Block umfaßt die 13-er Modulvariablenscheibe und kann auf 
beliebiger EPROM-Adresse abgelegt werden, der zweite Block 
umfaßt den Code-Bereich und muß im EPROM genau beginnend 
mit der in der 'CODE=$' - Option angegebenen Adresse 
abgelegt werden. Hierzu kann es ggf. sinnvoll sein, die 
Ausgabe des PROM-Befehls zunächst in einen ED-File zu 
lenken, um beide Blöcke mit Hilfe von Editor und COPY zu 
trennen. Damit wird die Eingabe des Adress-Offset beim 
EPROMmer erleichtert. 

Bei Systemen, die das Betriebssystem aus dem RAM exekutie- 
ren (Boot-Systeme wie ATARI oder Transfer 'aus dem Eprom in 
das RAM wie bei EMS CPU-4), muß bei der 'CODE=$' - Option 
die spätere tatsächliche Laufzeit-Adresse angegeben werden. 
Für EPROM- und RAM- Layout orientiert man sich an den 
Adress- und Längenangaben der Compiler-Bilanz. 

Sollen Tasks beim Warmstart automatisch loslaufen, so 


benutzen Sie auch hier vor dem PROM-Befehl den Befehl 
"AUTOSTART modulname, taskname'. 


Die Operation erfolgt auf Ebene der Bedientask, ggf. sollte 
mit '0O ED:xyz' der S-Rekordtext daher aus Zeitgründen 
zunächst in eine ED-Datei geschrieben werden. Drücken Sie in 


der Zeit nicht die BREAK-Taste, die Operation würde sonst 
abgebrochen! 


Beispiele: O A2:;PROM Lager*;O Al:;CLOCK; 
Modul "Lager'+folgende Tasks an das Programmier- 
gerät an A2 senden, Uhrzeit erscheint wenn fertig. 


O ED:Buffer; prom Mausi1 ‚Teufel; 


Task 'Teufel' im Modul 'Maus1' prommen, S-Records 
in ED-File schreiben. 
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Print Working Directory 


SYNTAX: PWD 


Beschreibung: 


Beispiele: 
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Das mit dem Befehl CD vereinbarte Working Directory 
kann mit dem Befehl PWD (Print Working Directory ) 


angezeigt werden. 

Eingabe : PWD 

Antwort : WD= NONE 

Es ist kein Working Directory vereinbart. 
Eingabe : PwD 

Antwort : WD=ED:- 


Es ist das Working Directory ED: vereinbart. 
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Release Semaphorvariable RELEASE 


SYNTAX: RELEASE hexnum8,hexnumß,... 


Beschreibung: 


Beispiele: 
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Durch hexnumß werden Speicheradressen angegeben, 
die als Semaphorvariablen in Benutzung sind. Wird 
dabei der Zustand "Requested' (and task waiting) 
verlassen, so wird - falls noch nicht gestorben - 
die erste (=höchstpriorisierte) wartende Task frei- 
gegeben, die auf diese Semaphore wartete. Die 
Semavariable bleibt in diesem Fall im Zustand 
"Requested'. Wird keine wartende Task ermittelt, so 
wird der Wert der Semavariablen um eins erhöht. 


Die Adressen müssen natürlich zunächst ermittelt 
werden, dazu empfiehlt sich die Benutzung globaler 
Symbole und Inspektion der Lader-Liste (LO-Option). 


RELEASE 4020,10112; 


B-II-47 


Return Files 


SYNTAX: RETURN device-file-list 


Beschreibung: 


Eine Floppy/Winchester-Datei wird aus der Verwal- 
tung von RTOS-UH entlassen. Vorher wird die Datei 
geschlossen. Die Anweisung wird als Kommandofehler 
behandelt, wenn ein angegebenes Objekt keine 
Floppy- oder Winchester-Datei ist. 


device-file-list: Es handelt sich um eine Liste, deren Elemente 


Beispiel: 


B-II-48 


durch Leerzeichen oder Kommata getrennt werden. Ein 
Element der Liste besteht aus einem Device-Bezeich- 
ner (z.B. F0:) und einem Filenamen. 


RETURN F1:QUELLE,FO:XYZ 
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Rewind Files REWIND 


SYNTAX: REWIND device-file-list 


Beschreibung: Die angegebenen Dateien werden zurückgespult. Die 
Anweisung führt zum Kommandofehler, wenn das Device 
nicht rückspulbar ist. 


device-file-list: Es handelt sich um eine Liste, deren Elemente 
durch Leerzeichen oder Kommata getrennt werden. Ein 
Element der Liste besteht aus einem Device-Bezeich- 
ner (z.B. FO:) und einem Filenamen. 

Beispiel: REWIND F1:QUELLE,FO:XYZ 


REWIND ED:myfile 
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Remove File RM 


SYNTAX: RM device-file-list; 


Beschreibung: Die in der Parameterliste angegebenen Dateien wer- 
den unwiderruflich aufgegeben. Die Dateien werden 
aus der Systemverwaltung entfernt, so daß auf sie 
nicht mehr zugegriffen werden kann. Bei ED-Dateien 
wird der zur Ablage der Datei benötigte Speicher- 
platz (Typ 'EDTF') wieder frei verfügbar. In der 
device-file-list werden vereinbarte Working Direc- 
torys mit berücksichtigt. 


Beispiele: RM ED:quelle, ED:test, FO:mist; 
RM ED:SI; 
oder mit Working Directory ED:xyz: 
RM mein; löscht ED:xyz/mein 


Durch Angabe einer vollständigen Pathlist können 
Files außerhalb eines vereinbarten Working Directo- 
rys gelöscht werden. 


vereinbartes Working Directory: ED:xyz 
RM ED:nutz1/abc löscht angegebenen File 


Hinweis: Das Bedieninterface übergibt die Kommandos an den 
jeweils zuständigen File-Handler, nachdem überprüft 
wurde, ob das angegebene Gerät überhaupt in lösch- 
bare Files untergliedert ist (siehe SD, DD Befehl). 
Ist letzteres nicht erfüllt, so wird die Anweisung 
mitsamt dem Rest der Kommandozeile zurückgewiesen. 
Wenn das File nicht vorhanden ist, so erfolgt die 
Meldung durch den File-Handler, ohne das Bedien- 
interface zu beeinflußen. 

Statt des Kommandos RM kann mit gleicher Wirkung 
auch ERASE eingegeben werden. 
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Remove Directory RMDIR 


SYNTAX: RMDIR devicebezeichner pathlist 


Beschreibung: 


device- 
bezeichner: 


pathlist: 


Beispiele: 


Die mit dem Befehl MKDIR vereinbarten Directorys 
können mit dem Befehl RMDIR wieder entfernt werden. 
Falls das Directory noch ein Directory oder File 
enthält, erscheint die Fehlermeldung DIRECORY 
ACTIVE. In diesem Fall sind zunächst die in der 
Hierarchie weiter unten stehenden Directorys und 
Files zu entfernen. 


Ein Devicebezeichner kann die Form Fx. für Disket- 
tenlaufwerke, bzw Hx. für Harddisklaufwerke haben. 
Die pathlist kann die Form buchstabenzahlen- 
£folge/buchstabenzahlenfolge... haben. Siehe dazu 
auch den Befehl MKDIR. 

Mit dem Befehl MKDIR wurde das Directory 
FO:USER1/PROJEKTIl 

vereinbart. Es besteht die Möglichkeit mit 

RMDIR FO:USER1/PROJERTI 

das Directory PROJEKTl1 zu entfernen. Mit dem Befehl 
RMDIR FO:USER1 


läßt sich auch das Directory USER1 entfernen. 
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Storage 


SYNTAX: S 
SA 


Beschreibung: 


adrl/adr2: 


type: 
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(Forn A) 
(Form B) 


Es wird die Speicherbelegung des gesamten Systems 
aufgelistet. Damit ist es jederzeit möglich, sich 
einen Überblick über die Systemauslastung und Bele- 
gung der einzelnen Speicherbereiche anzusehen. Bei 
Form A werden aufeinanderfolgende gleiche ED-Blöcke 
zusammengefaßt und bei adr2 mit einem '+' gekenn- 
zeichnet, um mehr Übersichtlichkeit zu gewähr- 
leisten. Die einzelnen Ausgabezeilen haben folgen- 
des Format: 


adri -> adr2 type IRESIDENT! !taskname! !filenamei 
8 -stellige hexadezimale Adresse 


- MARK Am Anfang und am Ende des von RTOS-UH ver- 
walteten Bereiches steht je eine Speicher- 
sektion dieses Typs. 


- FREE Diese Speichersektion ist nicht belegt. 


- TASK Es handelt sich um den Code-Körper (oder 
Scheinkörper bei Tasks im ROM) einer Task 
mit dem nachfolgend angegebenen Namen. 


- ATSK Es handelt sich um eine Auto-Start-Task, die 
sofort beim Systemstart lauffähig ist. 


- TWSP Task-Workspace der angegebenen Task. 


- CWSP Communication-Element im Besitz der angege- 
benen Task. Falls vorhanden wird der File- 
Name des Elementes ausgegeben. 


- PWSE Prozedur-Workspace der angegebenen Task. 


- MDLE Es handelt sich um den Kopf eines Modules 
mit dem nachfolgend angegebenen Namen. Die- 
ser Name kann z.B. der bei PEARL-Programmen 
mögliche Modulname sein. 


- EDTF Dieses Segment ist als Editor-Textfile mit 
dem nachfolgend angegebenen Namen im Spei- 
cher abgelegt. 


- PMDL Das Segment ist ein PEARL-Modul, das mit der 
"CODE=$','VAR=$' - Option des Compilers 
übersetzt wurde. Das Modul ist nur zur 
Bearbeitung mit Hilfe des "PROM'-Befehls 
geeignet. 


- 2??? Die Sektion ist nicht identifizierbar. Das 
Betriebssystem ist durch eine illegale Ope- 
ration eines Nutzers praktisch unmittelbar 
vor dem Zusammenbruch. 
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Set Device-Parameters SsD 


SYNTAX: SD: device /+ hexadd-expression/ value; 


Beschreibung: Die Parametrierung der durch 'device' bezeichneten 
Datenstation wird durch das (die) Byte(s) in 
'value' ersetzt. Bereits in der Warteschlange des 
Gerätes stehende Ein- oder Ausgaben werden dadurch 
nicht mehr verändert. Die Wirkung erfolgt nur durch 
Information gewisser Softwarepakete über den 


DVDSC-Trap. 
'device': Ein dem System bekannter Stationsname. Dabei wird 
nur eine 'ldn' generiert; Al: läßt sich also 


z.B. nicht anders als Bl: oder C1: parametrieren. 


um 


'hexadd-expression' kann wie beim SM-Befehl benutzt werden, 
etc. 


z.B. das erste Byte unverändert zu lassen 
'value': Zur Zeit 2 Bytes mit funktionellen Bits. 


l.Byte: $80 "Rückspulbar', ED,Fx,Hx, (AS, COPY, LOAD) 

$40 Die Station muß vor der ersten Benutzung 
explizit mit 'open' und nach der letzten mit 
'"close' angesprochen werden, etwa FO/Fl. 
(Assembler, Compiler,COPY) 

$20 Jedem endenden 'CR' soll ein 'LF' angefügt 
werden, etwa Al(=Bl,cl). 
(Assembler, Compiler, COPY, PEARL-runtime,Be- 
dieninterface) 

$10 Die Station ist ein dialogfähiges Datenter- 
minal, etwa Al,A2. (COPY,ED) 

$08 Das Echo soll explizit unterdrückt werden, 
nur bei den Ax, Bx, Cx sinnvoll. 
(COPY, PEARL-runtime) 

$04 Die Station erlaubt das Löschen bezeichneter 
Files, nur bei Fx/Hx oder ED sinnvoll. 


(Bedieninterface) 
$02 Die Station erlaubt die Ausgabe von Daten. 
(Bedieninterface) 
$01 Die Station erlaubt die Eingabe von Daten. 
(Bedieninterface) 
2. Byte: $80 Die Station akzeptiert ein explizites "DIR' 
oder 'FILES'-Kommando, nur Fx/Hx und ED. 
(Bedieninterface) 


$480 Die Station akzeptiert ein explizites 'FORM'- 
Kommando, nur Fx,Hx. (Bedieninterface) 

$20 CF-Command allowed. (Bedieninterface) 

$18 RMDIR, MKDIR möglich. (Bedieninterface) 

$08 SYNC, SEEK, SAVEP möglich. (Bedien-if, Hyperp) 

$04 zur Zeit unbenutzt. 

$02 Editor (nur ACIA/SCC): Terminal 'No wrap'-typ 

$01 Editor (nur ACIA/SCC): a "cursor by esc' 
Bsp: SD A2: OB; (A2 no echo ,input+output) 

SD 22; SD xy 22; Trifft alle Files der akt. WD-Län!! 

SD Al+1 CO; Vorsicht bei vergessenem Doppelpunkt und WD! 
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Time - Sharing für Task's SHARE 


Syntax: SHARE [ PRIO integer3 ] 


Beschreibung: 


Beispiel: 


WICHTIG: 
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Der Befehl SHARE dient dazu, ein gleichzeitiges 
Abarbeiten von gleich priorisierten Tasks zu ermög- 
lichen. 


Sind z.B. zwei Compiler vom Nutzer gestartet wor- 
den, so werden diese normalerweise nacheinander 
bearbeitet, da sie die gleiche Priorität haben. 
Damit sie gleichzeitig bearbeitet werden, wird 
SHARE mit der PRIO [ Taskprio - 1 ] aufgerufen. 
Nachdem dieses erfolgt ist, wird die Prozessorkapa- 
zität auf beide Compiler aufgeteilt. 


Ab dem erstmaligen Aufruf bleibt für die angegebene 
Priorität die Time-Sharing-Funktion aktiv, bis die 
SHRDxx-Task entladen oder terminiert wird. Auch ein 
Abort unterbricht das Time-Sharing. 


P xxxx > yyyYy 
P zzzz > uuuu 
SHARE 


/* läuft mit Prio 20 */; 
/* läuft mit Prio 20 */; 
/* jetzt werden beide bearb.*/; 


Der Aufruf von SHARE richtet eine Subtask SHRDxx 
ein, die das eigentliche Scheduling ausführt. 


Der Aufruf von SHARE muß mit einer um 1 niedrigeren 
Priorität erfolgen, als der Level, der beeinflußt 
werden soll, damit die Share-Task sofort aktiv 
wird. Andernfalls wird sie erst aktiv, wenn auf 
ihrer Prioritätsstufe freie Prozessorkapazität vor- 
handen ist. 


Um z.B. die Prioritätsstufe 30 zu beeinflussen muß: 
SHARE PRIO 29 eingegeben werden. 

Standard Priorität für SHARE ist 20. 

Um verschiedene Prioritäts-Level im Time-Sharing 


Betrieb zu nutzen, können beliebig viele SHARE- 
Kommandos abgesetz werden. 
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Show state of specified Task SHOW 


SYNTAX: SHOW taskname,taskname,... 
SH taskname,tasknane,... (Kurzform) 


Beschreibung: Es wird eine Zustandszeile für jede der angegebenen 


Beispiele: 


Tasks ausgegeben. Der Aufbau dieser Zustandszeile 
entspricht genau denen beim L-Kommando. Wenn ein- 
zelne Tasks der Liste nicht vorhanden sind, so 
erfolgt die Meldung NOT LOADED. 


SHOW abcd ASMB12 


SH PCOM45 
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Set Memory 


SYNTAX: SM adr value value ... value 
SM adr,value,value 


Beschreibung: 


adr: 


value: 


Beispiele: 
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Es kann der Inhalt einer oder mehrerer Speicher- 
zellen verändert werden. Ist value eine n-stellige 
Hexadezimalzahl, so werden (n+1)/2 Bytes beginnend 
bei adr abgelegt, wobei der Ablagezeiger für den 
nächsten Wert value anschließend um diesen Betrag 
weiterrückt. Die Zugriffe auf die Speicherzellen 
finden im User-Mode des Prozessors statt! 


1...8 -stellige Hexadezimalzahl, mit der die 
Adresse der Speicherzelle angegeben wird. Es können 
auch mehrere Hexadezimalzahlen angegeben werden, 
die durch ein '+' Zeichen verbunden sein müssen und 
vom System addiert werden. 

1... 8 -stellige Hexadezimalzahl, mit der der neue 
Inhalt der Speicherzelle angegeben wird. 

SM 14EAF 02 AFFEl2CD 3 4 

Ab der Adresse 14EAF wird ®2AFFEL2CDO304 abgelegt. 
SM 1000 (keine Operation) 

SM 6000+10 4 


Auf Adresse 6010 wird das Byte 04 abgelegt. 


MORE TECH Til 


Diese Anweisung darf nur mit größter Sorgfalt 
benutzt werden, da das Bedieninterface nicht prüft, 
ob evtl. lebenswichtige Daten oder Zeiger des 
Systems zerstört werden. Diese Zerstörungen können 
zuerst verborgen bleiben und sich erst später 
bemerkbar machen. 
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Suspend specified Tasks SUSPEND 


SYNTAX: SUSPEND taskname,taskname,... 
SU taskname tasknane ... (Kurzform) 


Beschreibung: 


Beispiele: 


Hinweise: 


Die angegebenen Tasks werden in den Zustand 
blockiert, wartend auf CONTINUE, gebracht. 


Das Bedieninterface prüft, ob die angegebenen Tasks 
vorhanden sind, ggf. erfolgt die Meldung NOT 
LOADED. Eine weitere Analyse des aktuellen Taskzu- 
standes findet nicht statt, d.h. die Tasks werden 
im aktuellen Zustand eingefroren. Wartete die 
angesprochene Task z.B. auf die Zuteilung einer 
Semaphore, so hat sie anschließend eine Doppel- 
blockierung. Ihr Zustand wird dann vom L bzw. SHOW 
Kommando mit ???? gezeigt. 


SUSPEND ABCD TEST 
SU init 
Diese Form der SUSPEND-Anweisung ist nicht Bestand- 


teil der Sprache Basic-PEARL, aber im RTOS-UH-PEARL 
implementiert. 
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Synchronize File-System syYNc 


Der Befehl ist als Shell-extension in den Floppy- und Winchester- 
filehandlern vorhanden. 


SYNTAX: SYNC Floppy-/Winch-devicelist 


Beschreibung: 


BEISPIEL: 


HINWEIS: 
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Verwaltungsdaten im Speicher und Inhalt auf den 
bez. Geräten werden aktuell abgeglichen, so daß bei 
einem Netzausfall die Daten gesichert sind. Die 
Zustände der Files werden dabei nicht verändert, 
die Files also auch nicht geschlossen. 


Der Befehl darf gegeben werden, w. 


ann immer man das 
für sinnvoll hält. Eventuell passiert überhaupt 
nichts, etwa wenn man nur von dem Gerät gelesen 
hat. 


SYNC H0:,Hl:,H2:,F0:; 


Hier werden alle ggf. offenen Files auf den Winch. 
und Floppylaufwerken synchronisiert, d.h. für die- 
sen Zeitpunkt besteht Übereinstimmung zwischen der 
File-Verwaltung im Speicher und dem Inhalt auf dem 
Medium. 


Der Befehl eignet sich, um eine Diskette in großer 
Eile entnehmen zu können. Dabei wird nach dem 
SYNC die Verwaltungsinformation gelöscht und man 
kann danach die Floppy herausnehmen. 


SYNC FO:;CF FO:FORGET;Clock; 


Der anschließende Clock-Befehl dient nur dazu, um 
den Abschluß der Aktion erkennbar zu machen. 
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Terminate specified Tasks TERMINATE 


SYNTAX: TERMINATE taskname tasknane ... 
T taskname,tasknanme... (Kurzform) 


Beschreibung: Die angegebenen Tasks werden beendet. Der von ihnen 


Beispiele: 


belegte Prozedur-Workspace wird an das System zu- 
rückgegeben. Communication-Elemente, die nicht in 
einer Ausgabeschlange oder in Bearbeitung einer In- 
puttask sind, werden ebenfalls sofort an das System 
zurückgegeben. Die automatische Rückgabe aller an- 
deren Communication-Elemente nach Abschluß der Ein- 
oder Ausgabe wird vorbereitet. Ist die Task nicht 
vom Typ "RESIDENT', so wird auch der von ihr 
belegte Task-Workspace an das System zurückgegeben. 


Bezüglich der Semaphore im Besitz der Task wird wie 
bei der PEARL-Anweisung TERMINATE verfahren. 


Das Bedieninterface prüft nicht, ob die angegebene 
Task existiert oder ihr Laufzustand eine Termi- 
nierung ermöglicht, also sie nicht im Zustand 
'DORM' ist. Eine Fehlermeldung wird ggf. vom 
Betriebs-systemkern erzeugt. Meldungen: NOT LOADED 
(TERMI) oder NOT ACTIVE (TERMI). 


TERMINATE TEST INIT 


T RUN 
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Switch Task to 


SYNTAX: 


TRACE 
TRACE 
TRACE 


Trace Mode TRACE 
taskname adr (Form A) 
taskname L linenr (Form B) 


taskname L linenr,linenr (Form B) 


Beschreibung: Die angegebene Task wird in den Hardware-trace-mode 


Form A: 


Form B: 
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überführt (Form A) bzw. die Programmzeilen-überwa- 
chung wird eingeschaltet (Form B). Sobald die durch 
adr (Form A) angegebene Adresse, bzw. eine der max. 
zwei angebbaren Zeilennummern (Form B) überlaufen 
wird, wird die Task durch das Betriebssystem sus- 
pendiert und die Meldung 


taskname:adr BREAKPOINT (Form A) 
taskname:L=linenr BREAKPOINT SUSPENDED (Form B) 


ausgegeben. Das Erreichen des Haltepunktes löscht 
diesen nicht. Nach einer CONTINUE-Anweisung kann 
also der gleiche Haltepunkt erneut angelaufen wer- 
den. 


Der Befehl ändert nichts am Laufzustand der Task, 
d.h. auch inaktive oder eingeplante Tasks dürfen 
an-gesprochen werden. 


War die Task bereits im Trace-Mode, so werden alle 
alten Haltepunkte gelöscht. Eine vollständige Auf- 
hebung der Programmzähler- (Form A) oder Zeilen- 
überwachung ist nur mit Hilfe des 'NOTRACE'-Kom- 
mandos möglich. Auch nach einem Warmstart des 
Systems sind bei allen Tasks die Trace-Modi 
gelöscht. 


Die Task läuft im TRACE-Mode wie in 'Zeitlupe' ab. 
Jeder Maschinenbefehl löst eine Trace-Exception 
aus, in der der Adreßvergleich erfolgt. 


Instruktionen nach TRAPs können nicht als Halte- 
punkte erkannt werden. 


Das Hochsprachenprogramm muß (wenigstens teilweise) 
mit der Markierungsoption der UH-Compiler übersetzt 
worden sein. /*+M*/ bei PEARL, +M bei FTN. 


Die Task wird suspendiert, sobald die erste in der 
angegebenen Zeile (bzw. einer der beiden, falls 
zwei angegeben waren) beginnende Anweisung erreicht 
wird. Die Anweisung wird jedoch noch nicht ausge- 
führt, sondern als erste nach der CONTINUE-Anwei- 
sung ausgeführt. 


Die Laufgeschwindigkeit der Task wird durch das Zu- 
oder Abschalten des Line-Trace-Modus praktisch 
nicht geändert. Allerdings ist das Compilat an sich 
bereits durch Benutzung der +M -Option um ca. 5 bis 
50% verlangsamt. 
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adr: 


linenr: 


Beispiele: 


Hinweise: 


1...8 -stellige Hexadezimalzahl, mit der die 
Adresse des Breakpoints angegeben wird. 


1l...4 -stellige Dezimalzahl, die die Programm- 
zeilennummer des Haltepuktes bezeichnet. Höhere 
Zeilennummern als 9999 werden modulo 10000 behan- 
delt. Die syntaktische Kontrolle der Zeilennummer 
ist hexadezimal, so daß unerkannt auch Zeilen- 
nummern, die nie vom Compiler generiert werden kön- 
nen, versehentlich eingegeben werden können. Beide 
Haltepunkte sind völlig gleichwertig. Wird nur 
einer angegeben, so existiert ein ggf. früher 
eingegebener zweiter nicht mehr. 


TRACE TEST 2346 


Die Task TEST wird in den Hardware-Trace überführt 
und soll bei Adresse 2346 suspendiert werden. 


TRACE ABCD L 55 76 


Die Hochsprachtask ABCD soll beim Erreichen der 
Zeilen 55 oder 76 suspendiert werden. 


Mit dem Hardware-Tracer können durchaus auch 
Hochsprach-Codierte Tasks überwacht werden, wenn 
folgendes beachtet wird: 


- Virtuelle Befehle können nicht erkannt werden. 

- Der erste Befehl nach einem virtuellen Befehl 
kann nicht als Haltepunkt dienen. 

- Der To-Virtual-Befehl kann benutzt werden. 


Werden Adressen oder Zeilennummern in Prozeduren 
angewählt, so beeinflußt die TRACE-Anweisung natür- 
lich die anderen Tasks nicht, die diesen Haltepunkt 
überlaufen. 


Es ist möglich - bei unabhängig compilierten Modu- 
len -, daß Programmzeilennummern mehrfach vorhanden 
sind. In diesem Fall - den man möglichst durch 
Beschränkung auf einen Modul mit +M-codiertem Code 
vermeiden sollte - ist nach Erreichen des Break- 
point zusätzlich der PC (oder ersatzweise A6) zu 
inspizieren, um festzustellen, welche der gleich- 
nummerierten Zeilen getroffen wurde. 


Mit der +M-Option übersetzte Programme können nur 
durch Neucompilation ohne diese Option wieder auf 
maximale Laufgeschwindigkeit und minimalen Code 
gebracht werden. 


Im Gegensatz zu anderen Konstruktionen wird der 
Code einer Task oder Prozedur durch die Anwendung 
der TRACE-Anweisung im Speicher nicht verändert. 
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Trigger specified Interupt TRIGGER 


SYNTAX: TRIGGER EV hexnum8 


Beschreibung: 


hexnumß: 


Beispiele: 


Hinweis: 
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Sämtliche Interrupts, die durch das mit hexnumß8 be- 
zeichnete Bitmuster angegeben werden, passieren die 
durch ENABLE/DISABLE eingestellte Interruptmaske 
des Systems. Ist dort keiner der durch hexnum8 
ausgewählten Interrupts freigegeben, so ist die 
Anweisung ohne Wirkung. Das System unterscheidet 
nicht, ob ein Interrupt durch TRIGGER oder durch 
die Hardware ausgelöst wurde. Diese Anweisung eig- 
net sich also hervorragend zum Austesten eines 
interruptgesteuerten Programns. 


1...8 -stellige Hexadezimalzahl, die das 32 Bit Er- 
eignismuster beschreibt. Bei weniger als 8 Stellen 
werden links Nullen ergänzt. 


Vorgeschichte: WHEN EV 3 C TEST; ENABLE EV 7; 
WHEN EV 6 XYZ; 


TRIGGER EV 1 die Task TEST wird fortgesetzt. 
TRIGGER EV 4 die Task XYZ wird aktiviert. 
TRIGGER EV 2 TEST wird fortgesetzt, XYZ aktiviert 


TRIGGER EV FFFFFFFF alle 'enabled' Interrupts 
werden gefeuert 


"Die Anweisung entspricht der gleichnamigen PEARL- 
Anweisung. 
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Unload Tasks or Modules UNLOAD 


SYNTAX: UNLOAD taskname modulname ... modulname* ... 


Beschreibung: 


taskname: 


modulnanme: 


Beispiel: 


Hinweise: 


Es werden die in der Liste angegebenen Namen in der 
Systemverwaltung der Tasks und Module gesucht. 
Existiert ein Name nicht, so wird die Meldung NOT 
LOADED abgesetzt und das Kommando mit dem nächsten 
Element fortgesetzt. 


Die Task wird ausgeplant, gepufferte Aktivierungen 
werden gelöscht und anschließend wird, £Lalls er£for- 
derlich, die Task terminiert. Dann verschwindet sie 
endgültig aus der Verwaltung von RTOS-UH. 


Folgt dem Modulnamen kein '*', so wird nur die dem 
Modulnamen zugeordnete Speichersektion entfernt. 
Vorsicht bei PEARL-Modulen!! Dies kann zum Zusam- 


menbruch des Systems führen, falls anschließend 
noch Tasks auf Modulvariablen oder Datenstationen 
in dieser Sektion zugreifen. 


Folgt dem Modulnamen ein '*', so werden sowohl die 
Modulsektion als auch sämtliche (!) in unmittel- 
barer Speicherfolge liegende Tasks entfernt. Dieser 
Fall ist hauptsächlich für das großzügige Aufräumen 
im System gedacht und verlangt eine gewisse Vor- 
sicht, da man vorher feststellen muß, an welcher 
Stelle die erste Nichttasksektion in der Kette 
steht. 


UNLOAD TEST KALA* BAUER 


Systemtasks können weder versehentlich noch ab- 
sichtlich beeinflußt werden. Bereits in der Ausga- 
beschlange stehende Communication-Elemente einer 
Task verbleiben dort und werden weiter bearbeitet, 
allerdings ist der Task-ID gelöscht, so daß als 
Besitzer (RTOS) beim 'S'-Befehl ausgegeben wird. 
Hängende Eingaben müssen abgeschlossen sein, damit 
das CE frei wird. 


Rev. RTOS-UH Dec. 1986 B-11-63 


When event activate or continue given Task WHEN 


SYNTAX: WHEN 
WHEN 
WHEN 
WHEN 


Beschreibung: 


hexnunm8: 


Beispiele: 


B-II-64 


EV hexnum8 ACTIVATE taskname [ PRIO integer3 ] 
EV hexnum8 CONTINUE taskname 

EV hexnum8 taskname [ PRIO integer3 ] 

EV hexnum8 C taskname 


Bestehende Einplanungen für eine Aktivierung - bei 
..„ .„ACTIVATE = bzw. zur Fortsetzung = bei 
.„..CONTINUE - werden gelöscht und die angegebene 


Einplanung für den mit hexnumß bezeichneten Prozeß- 
interrupt wird eingetragen. Wird bei ...ACTIVATE 
keine Priorität angegeben, so wird die taskeigene 
Priorität eingesetzt. Die aktuelle Priorität einer 
gerade laufenden Task wird dadurch jedoch nicht 
verändert, sondern erst, wenn die Einplanung zur 
Aktivierung führt. 


1...8 -stellige Hexadezima hl, die das 32 Bit 
Ereignismuster beschrei Die Aktivierung bzw. 
Fortsetzung erfolgt, wenn das Bitmuster eines 
Interruptereignisses (bzw. einer TRIGGER-Anweisung) 
mindestens ein gesetztes Bit gemeinsam mit dem 
durch hexnum8 angegebenen Er«-ignismuster besitzt 
(d.h. wenn die 'UND'-Verknüpfung nicht 00000000 
ergibt. Bei weniger als 8 Stellen werden links 
Nullen ergänzt. 


WHEN EV 2 XYZ PRIO 20 
WHEN EV FFFFFFFF CCONTINUE ABCD 


ABCD wird bei einem beliebigen Prozeßinterrupt, 
sofern er 'enabled' ist, fortgesetzt. 
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Einplanungen für Bedienbefehle 


Hier soll erläutert werden, wie man sich Blockkommandos 
erzeugen kann, die zu vorgegebenen Zeitpunkten oder auf externe 
Ereignisse hin zur Ausführung kommen. 


Im Schnellkurs wurde bereits beschrieben, wie man mit Hilfe ent- 
sprechender PEARL-Tasks Bedienkommandos über die sog. XC-Station 
einplanen kann. Dieses geht allerdings auch ohne den PEARL-Compi- 
ler mit Hilfe des COPY-befehles. 


Bsp: Sie wollen die Sequenz 'UNLOAD TEST*;P -- LOAD--LAUF' als 
Blockkommando anlegen und dieses zum Zeitpunkt 16:00:33 zur Aus- 
führung bringen lassen. UNLOAD ist kein Sohnprozeßbefehl, daher: 


1. Schritt. Anlegen eines Kommandofiles, z.B. ED:command. 
Mit Hilfe des Editors (oder durch COPY) erzeugen wir 
einen ED-File mit dem Inhalt 'UNLOAD TEST* ....LAUF; ' 
Der Blockbefehl darf auch aus mehreren Zeilen beste- 
hen, jedoch müssen zu Subtasks (P,AS,COPY,ED,LOAD) 
die zeitlich nachfolgend mit '--' vereinbarten Ope- 
rationen stets in der gleichen Zeile stehen! 
Wir schließen den Kommandofile mit EOT in Sp.il ab. 


2. Schritt. Generierung einer planungsfähigen Kopiertask. 

Wir geben den Befehl COPY.N ED:command CO XC:--;T N; 
Nun haben wir eine schlafende Task mit Namen 'N', die 
beim Erwachen die Befehle im File ed:command in den 
Fernbedieninterpreter kopiert, dann allerdings ver- 
schwindet, falls sie nicht eingeplant ist. Nebenbei: 
Der String '--' dient zur Unterdrückung der Abschluß- 
meldung. Das Verschwinden können wir durch eine Pseu- 
doeinplanung 'When EV 0 ACTIVATE N' verhindern, wenn 
wir nur das Kommando 'N' als neuen Bedienbefehl be- 
nutzen wollen. 


In unserem Beispiel planen wir 'N' nun wie folgt ein: 


AT 16:00:33 ACTIVATE N; 


Sehr viel einfacher gelingt die Einplanung eines einzigen Befeh- 
les, wenn dieser einer der subtaskgenerierenden (P,AS,LOAD, etc.) 
ist. Genau wie im obigen Beispiel die COPY-Task kann dieser Sohn- 
prozeß (Subtask) dann unmittelbar eingeplant werden: 


Bsp: P.Z ED:file--Unload micmac*--Load--Run; T Z; 
AT 14:00:00 ACTIVATE 2; 


Die Leistung ist hier ganz ähnlich: Sobald der Compiler fehler- 
frei fertig ist, übernimmt er (ja, er höchstpersönlich!) die Aus- 
führung des UNLOAD und erzeugt einen Lader. Der Lader schließlich 
startet zum Abschluß die Task 'Run'. 


Die mit '--' an Sohnprozesse angeschlossenen Folgebefehle werden 


immer von diesen selbst exekutiert. Evtl. bricht sich also ein 
Compiler die Ohren, wenn er ein DM mit Bus-Error machen muß. 
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Sprachumfang UH-PEARL 
SPRACHUMFANG UH-PEARL 


Die Implementierung orientiert sich an DIN 66253, daher werden 
hier nur Abweichungen und Erweiterungen sowie nicht nach DIN 
festgelegte Eigenschaften behandelt. Soweit Erweiterungen außer- 
halb der Norm liegen, so wurden diese durch ein 'CALL'-Konstrukt 
(Ohne CALL-code!) realisiert, damit UH-PEARL-Programme portabel 
geschrieben werden können. 


BEZEICHNER: Es sind - wie allgemein üblich - Ziffern, Kleinbuch- 

ee staben und Großbuchstaben erlaubt. Bezeichner dür- 
fen jedoch nicht mit einer Ziffer beginnen. Zwischen 
Groß- und Kleinbuchstaben wird semantisch unter- 
schieden. Die Bezeichner dürfen maximal aus 24 Zei- 
chen zusammengesetzt werden. 


SCHLÜSSELWORTE: Für Schlüsselworte können nur Großbuchstaben ver- 
Seuzesanannnn wendet werden. (siehe Norm). 


MODULGRÖSSE: Der einphasige Compiler kann den für den RTOS-Lader 
tt irn in ine erforderlichen Kopfeintrag der Modulgröße nur mit 
Hilfe des Programmierers schaffen. Dazu wird vor der 
MODULE-Anweisung ein spezielles Size-statement pla- 


ziert: 
=) S=$6500; MODULE test; .... 
= 2) Sc=$6500; MODULE test; .... 


Die Hexzahl hinter S wird als Kopfeintrag dem Lader 
übergeben und ermöglicht ihm später die bedarfsge- 
rechte Platzsuche. 

In der Form 2) wird der Speicherplatz vor dem 
Ladevorgang gelöscht (auf $0000 gesetzt). Damit sind 
alle Variablen mit einem definierten Wert initiali- 
siert (wohlgemerkt: nur direkt nach dem Laden, nicht 


vor jedem Start des geladenen Programms!). Besonders 
sinnvoll ist der Einsatz dieser Option bei der 
Erzeugung ROM-fähigen Codes (s. u.), da der erfor- 


derliche ROM-Speicherplatz minimiert wird. 


Wird der S-Parameter nicht angegeben, so wird ein 
Ersatzwert von $200® eingesetzt. 


Der Compiler prüft bei der Modulbilanz die Einhal- 
tung der durch 'S=$..' vorgegebenen Obergrenze. 
Wird sie überschritten, so wird ein LIMIT-ERROR 
ausgegeben und das Programm kann später nur mit 
zusätzlichem SZ-Parameter beim 'LOAD'-Befehl geladen 


werden. (Sonst: >>LOADxy: WRONG ADDRESS LOADER 
INPUT.) Die Modulgröße ist praktisch nach oben nicht 
begrenzt, da der Compiler automatisch auf Lang- 


adressierung umschaltet. Allerdings gibt es bei der 
Verwaltung des Konstantenpools Besonderheiten, siehe 
dazu C-II PEARL-Hilf/Test, Big Module option. 
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ROM-CODE: 


DATENTYPEN: 


Sprachumfang UH-PEARL 


Der Compiler erlaubt die RTOS-UH-kompatible Erzeu- 
gung ROM-fähigen Codes mit Trennung zwischen (Modul - 
) Variablen- und Code-Bereich. Hierzu müssen zusätz- 
lich zur SIZE-Angabe Code- und Variablen-Adressen 
angegeben werden: 


S=$size,CODE=$epromadresse, VAR=$ramadresse; oder: 
Sc=$size,CODE=$epromadresse, VAR=$ramadresse; 


Die Hexzahl epromadresse gibt die Startadresse des 
Codes im EPROM an, die Hexzahl hinter VAR die 
Adresse, mit der beginnend die Modulvariablen im RAM 
abgelegt werden sollen. 

Beim EPROM- und RAM-Layout orientiert man sich an 
den Code- und Variablen-Längenangaben des Compilers. 


Der mit dieser Option erzeugte Code ist nicht im RAM 
ablauffähig; nach Laden der S-Records können mit 
Hilfe des "PROM'-Befehls Eprommer-geeignete Ss- 
Records erzeugt werden. 


Typ: Länge typ. Konstante/INIT 
FIXED (1...15) 2 Bytes 21527 -508 109(15) 
FIXED (16...31) 4 Bytes a7ı1(31) 9(31) -2(31) 
FLOAT (1...23) 4 Bytes 1.23456E-05 0.245 
FLOAT (23...55) 8 Bytes 3.1414567893617 (55) 
CHAR (1...255) n Bytes "Abcdefgh--XYZ' 'a' 
BIP. ....16) 2 Bytes '01000100'B "AFFE'B4 
BIELIT 32) 4 Bytes 'AFFE1234'B4 

DUR (ATION) 4 Bytes 2 HRS 5 MIN 0.4 SEC 
CLOCK 4 Bytes 13:45:2.004 

dur/clock "Atom' ist 1 msec! 
SEMA 2 Bytes PRESET (2) 

STRUCT ? Bytes -- 

REF typ 4 Bytes INIT(Identifier) 


Bei den Verbunddaten (STRUCT) können Komponentenna- 
men frei gewählt werden. Der Übersetzer verdaut je- 


doch nur max. 512 gleichzeitig 'lebende' Verbundty- 
pen. 


Mit Hilfe der LENGTH-Anweisung kann die Defaultlän- 
ge der Objekte FIXED, FLOAT, CHAR und BIT einge- 
stellt werden. Ohne 'LENGTH'-Statement gilt: 


FIXED = FIXED (15) 
FLOAT = FLOAT(23) 
CHAR = CHAR(1) 
BIT = BIT(1) 


Achtung: Das '"LENGTH'-statement wirkt auch auf die 
FIXED und FLOAT Konstanten ohne nachgestellte Länge! 
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DIN-ABWEICHUNGEN: 


Objekt 


SIGNALE 
ARRAYS 
ARRAYS 
ARRAYS 
DATION 


BIT/CHAR 
BIT 


BIT/CHAR 
Time-schedule 
SUSPEND 
Interrupts 
PROC (EDURE) 
Multi-module 
DUR-Objekte 
NOW 
FIXED-Objekte 
E/A-Anweisung 
REF-Variable 


Sprachumfang UH-PEARL 


(Gegen Basis-PEARL!) 


Abweichung Wann o0.k? 
Nicht implementiert Prio 3 
Parameterübergabe nur IDENT bleibt 
Keine Total-E/A Prio 2 
Keine Slices Prio 2 
Keine Stationsfelder, keine Unter- 
gliederung (CYCLIC ..), kein DCL Prio 3 
Keine Slices Prio 2 
1 


CAT für BIT nicht implen. Prio 
Beliebige Expr. im Selektor xy.CHAR (expr.) 
AT/AFTER ... ALL ... DURING/UNITIL erlaubt. 
Für fremde Task erlaubt: SUSPEND xyz. 

Als Prozedurparameter zugelassen. 

Der Selbstaufruf (Rekursion) ist erlaubt. 
Mehrere Systemteile können gebunden werden. 
Division DUR/DUR ergibt FLOAT(23) Resultat. 
Direkter Zugriff auf aktuelle Uhrzeit: C-III. 
Basis-Operator 'REM' aus Full PEARL implenm. 
Ausdr./Functions mit eigener E/A möglich. 
Zeiger aus Full PEARL m.E. implementiert. 
Siehe dazu Sprachumfang Seite 5! 


Hilf/Test An/abschaltbare Hilfsfunktionen gemäß C-II. 

TYPE -Definition aus FULL PEARL, im UH-PEARL sogar 
für Grunddatentypen erlaubt. 

PROC Verbunddatentyp (STRUCT) ist als Rückgabe- 
datentyp erlaubt! 

Einbaufunktionen Für Basisgrafik, Ein-/Ausgabe. 

ST(dation) Statusabfrage Datenstation. 


SEMASET expr.,sema Dynamische SEMA-Reinitialisier. 


Achtung: Gleiche Verbunddatentypen mit gleichem TYPE deklarieren, 
bzw. spezifizieren, sonst keine Totalzuweisung möglich! 
Als Prozedurwert ist daher nur 'geTYPEter' Mode sinnvoll! 
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Definition von Datenstationen im SYSTEM-Teil: 


Allg: XYZ:LD/ldn,drive/.pathlist (TFU=integer ‚NE, AI=$hexno.) <->; 
ldn = Warteschlangennummer im Betriebssystem RTOS-UH. 
drive = Laufwerksnummer (Untergliederung) des Gerätes. 


pathlist= Alphanum. string mit Separatoren '/', dient ev. 
nur als Platzhalter für OPEN .. BY IDF(...). 
Dann lang genug vorsehen!! 


TFU=... Größe der Rekords (Comm.el.), TFU=1 kann für 
Dialoggeräte sinnvoll sein (Terminal), belastet 
aber das Betriebssystem mit großem Overhead. 
Wenn TFU fehlt, so wird der Wert von 128 ange- 
setzt. 


NE No error-message-flag. Der Programmierer wird 
mit der Funktion ST die Fehlerüberwachung in 
eigener Regie durchführen. Fehlt NE, so werden 
Fehlermeldungen ausgegeben. 


AI=$... Zusatzinformation $xxxx f. E/A-Treiber laut be- 
sonderer Beschreibung. Fehlt Al=, so wird ein 
Wert von Null angenommen. Das linke Byte tog- 
gelt ( exklusiv-oder) die korrespondierenden 
MODE-Bits des 'CE'. 


Die Klammer (TFU .. AI=) darf wie einzelne Parameter fehlen, die 
Reihenfolge der Parameter muß aber eingehalten werden. Es muß 
nicht jede Station über LD/../ definiert werden. Am Ende des Com- 
pilers befindet sich eine (nach hinten erweiterbare) Liste mit 
Stationsnamen, zu denen ldn und drive automatisch generiert wer- 
den (siehe dazu A-I-10 „ A-II-££ ). 

Es ist auch erlaubt, Usernamen gleich Systemnamen zu setzen, z.B. 
genügt ..;Al; statt etwa ..;Al:LD/0,0/<->; 


Beispiel für die Anwendung von Datenstationen: 
MODULE XYZ; 


SYSTEM; Winch1:LD/5,5/.USR/GE/test (TFU=400) <->; 
Myfile:FO.dies/ist/nur/ein/platzhalter;.... 
Terminal: A1l.Dialog (TFU=1,AI=$3C00) <->; 
Termreset: Al.Reset (->; 

PROBLEM; SPC (Winchl1,Myfile) DATION INOUT ALPHIC CONTROL (ALL); 
SPC Terminal DATION INOUT ALPHIC CONTROL (ALL); 
SPC Termreset DATION INOUT ALPHIC CONTROL (ALL); 


TS1:TASK; DCL mist CHAR (20); 
OPEN Myfile BY IDF(textvariable oder konstante); 


GET mist FROM Terminal BY A(20); /* Lese 208 Zeichen */; 


se /* im Sondermodus */; 
GET FROM Termreset BY SKIP; /* normalmodus einschalten*/ 
END; 
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Forts.: Datenstationen im SYSTEM-Teil 


Mit dem OPEN .. BY IDF (..) wird der Inhalt der Textvariablen 
oder Textkonstante als aktueller Filename für die Dation (hier 
Myfile) eingesetzt. Durch diese Anweisung kann eine Dation für 
verschiedene Files genutzt werden, ohne die Notwendigkeit das 
PEARL-Programm zu ändern. Es ist zu beachten, daß bei Benutzung 
von OPEN .. BY IDF (..) im Systemteil ein genügend langer Dummy- 
Name für die Dation als Platzhalter vorgesehen wird. Mindestens 
von der Länge der Textvariablen bzw. -konstanten (max 24 
Buchstaben). 


Bei der im Beispiel angegebene Dation (hier Al.Dialog mit 
Usernamen Terminal) wird mit TFU=1 auf Einzelzeichenübertragung 
geschaltet. Mit AI=$3C werden die normalerweise eingesetzten 
Mode-Bit's des Compilers ($BA) getoggelt, sodaß bei einer Eingabe 
(GET xxx FROM Terminal;) ein 'CE' mit einem Mode-Byte ($82) 
entsteht. Es wird auf die Zeichen CR ($0D) ,„ LF ($0A) und EOT 
($64) nicht mehr gesondert reagiert, sie werden in die Input- 
variable eingetragen. Weiterhin ist die Funktion Supress-Command 
eingeschaltet, sodaß der Kommandointerpreter nicht mehr durch ein 
($01 - $03 „ Ctrl A-C) angestoßen wird, dieses gilt solange bis 
entweder ein BREAK oder ein weiteres GET auf die gleiche Dation 
(hier A1l.Reset) mit anderem Usernamen (hier Termreset) und 
anderem AI ausgeführt wird. 


Besonderheiten bei der formatierten Eingabe ('GET') im UH-PEARL. 


* Das System blockt die Eingabe in Sätze je nach der 'TFU' des 
Systemteiles, im Standard jeweils 128 Zeichen. Ein vorzeitiges 


Satzende erzeugen im Standard: Carr.rtn, Line-feed und EOT. 
( Mode-Byte = $B8 ,„ mit Wait ). Dies kann durch das linke Byte 
von AI ggf. modifiziert werden. Siehe dazu '"MODE'-byte 


unter E-III "Communication-element'. Die 'AI'-option ist mit 
allergrößter Vorsicht zu benutzen. Mit jedem 'GET' wird 
an der alten Stelle - im alten Satz! - weitergelesen. Wenn 
das unerwünscht ist, sollte das Format mit SKIP beginnen. 


* Vorzeitige Eingabefeldbegrenzung bei E,F,B,T,D - Formaten. 
Steht in dem vereinbarten Eingabefeld ('width') ein Komma, so 
beginnt hinter dem Komma das Eingabefeld für das nächste Ein- 
gabedatum. 

Bsp. GET i,j,k,l FROM Al BY SKIP, (4)F(20); 
Als Eingabe würde die Zeile -100,2,33,5, korrekt akzeptiert. 
Man braucht also nicht 4 mal 28 Zeichen vorzusehen. Tut man es 


dennoch, so dürfen natürlich keine Kommas vorkommen. 


Auch das Zeichen Carriagereturn beendet ein Eingabefeld. 
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* Vorzeitige Eingabefeldbegrenzung beim A-Format. 


Sie findet überhaupt nur statt, wenn im Format des GET das 
automatisch angepaßte A-Format steht (d.h. ohne Klammer mit 
Parametern). Beim Format A(x) wird in jedem Fall die vorgese- 
hene Anzahl Zeichen gelesen. 


Das Eingabefeld endet beim freien A-Format vorzeitig, wenn das 
Zeichen Carriagereturn eingelesen wird. Dieses wird in Space 
($20) verwandelt, auch der Rest des einzulesenden String wird 
mit spaces aufgefüllt. 


Bsp. DCL C CHAR (79); 
GET C FROM Al BY SKIP,A; 


Wenn nun ABCDEFGHI(Carr.rtn) eingegeben wird, so steht hin- 
terher im String C der Text ABCDEFGHI mit 61 folgenden spaces. 
Diese Option war nicht unumstritten, sie erleichtert aber die 
schnelle Kommandoanalyse für Dialoge mit PEARL-programmen. 


Besonderheiten bei der formatierten Ausgabe ('PUT') im UH-PEARL. 


Es wird in Sätzen mit Länge der TFU transferiert, im MODE-Byte 
ist nur das Output-bit ( Mode-Byte =$40 „ ohne Wait ) gesetzt. 
Durch "'AI' kann ggf. ein Warten auf Ausgabeende erzwungen 
werden. (Niemals bei INOUT-Stationen!). 


Besonderheiten bei Feldzugriffen 


Im UH-PEARL können ARRAYS gemäß DIN maximal 3-dimensional dekla- 
riert werden. Standardmäßig erlaubt UH-PEARL den Zugriff auf 
32768 abzüglich der Länge eines Feldelements in Byte Feldelemente 
über FIXED(15)-Indizes. Wird beim Feldzugriff auf den ersten 


Index über eine FIXED(31)-Zahl zugegriffen, so kann auf 
2 147 483 648 abzüglich der Länge eines Feldelementes Feldele- 
mente zugegriffen werden (sofern der Speicher reicht). Der 


maximalen Index für jede einzelne Dimension ist 32767. 
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Besonderheiten bei der Benutzung von Zeigervariablen (REF). 


Zunächst eine WARNUNG: Wer mit REF-Variablen arbeitet, begibt 
1-7 sich in einen Raum, in dem unser Compiler 
keinen Schutz vor Unfug mehr geben kann! Eine Zeigervariable kann 
wer weiß wohin zeigen - und damit kann wer weiß was im System 
zerstört werden. Gleichwohl sind aber mit REFs Konstrukte pro- 
grammierbar, die ihren (gefährlichen) Einsatz rechtfertigen. 


Implementierungsumfang: 


Im UH-PEARL dürfen REF-Variable auf skalare Objekte der Grundda- 
tentypen sowie auf Verbunde zeigen. (Adressierte Plätze in Arrays 
sind Skalare!). Felder aus gleichartigen Zeigern sind ebenfalls 
zugelassen. Nicht implementiert sind Zeiger auf folgende Objekte: 


LABEL, PROC, SEMA, DATION, INTERRUPT 


Musterbeispiel: 


TYPE MENSCH STRUCT(/ Name CHAR (10), Alter FIXED, 

Nachbarlinks REF MENSCH, Nachbarrechts REF MENSCH/); 
DCL (Maier, Mueller, Schulze) MENSCH; /* so wohnen sie auch #/; 
DCL Arbeitszeiger REF MENSCH INIT (Maier); 


Operationen mit REF-Variablen. 


1. Positionieren des Zeigers: Arbeitszeiger=Maier; 
Maier.Nachbarlinks=NIL; 
Maier.Nachbarrechts=Mueller; 


Schulze. Nachbarrechts 


SNIL; 


2. Vergleich von Zeigern: IF Arbeitszeiger IS Maier THEN ..... 
IF Maier.Nachbarlinks ISNT NIL THEN .. 


Beachte: Im UH-PEARL muß nur einer der beiden Partner der 

------- Operatoren IS und ISNT ein Zeiger sein. Der zwei- 
te Partner muß aber eine Adresse liefern können 
oder das Element 'NIL' sein. 


3. Dereferenzierung: Es wird auf das 'gezeigte' Objekt zugegrif- 
fen. Siehe dazu die 'Dereferenzierregel' der 
nächsten Seite. Dabei kann durch Selektion 
einer Komponente wieder ein REF-Objekt ent- 
stehen. 


4. Verschiebung: Mit Hilfe der Einbaufunktion REFADD kann ein 


Zeiger sehr schnell verschoben werden. 
(Spezialität des UH-PEARL) 
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Dereferenzierregel: 


Zeiger, denen ein Selektor folgt, werden stets dereferenziert. 
Dabei kann allerdings erneut ein Zeiger entstehen: 


Arbeitszeiger.Nachbarrechts.Alter = 25; 
Arbeitszeiger.Nachbarlinks.Nachbarlinks.Name='Krueger'; 
Schulze.Nachbarrechts=Arbeitszeiger; /* Zeigerzuweisung*/; 


Zeiger in Ausdrücken und bei Prozeduraufrufen werden stets dere- 
ferenziert. Aus diesem Grund ist der Operator CONT nur auf der 
linken Seite einer Zuweisung implementiert. Ein einzelner Zeiger 
auf der rechten Seite einer Zuweisung wird natürlich dann nicht 
dereferenziert, wenn links ein Zeiger (ohne CONT davor!) steht. 


CONT Arbeitszeiger=Mueller; 


Hier wird das Objekt, auf das Arbeitszeiger zeigt, mit den Daten 
des Verbundes Mueller besetzt. 


Da bei Proc-calls dereferenziert wird, können REF-Variable nicht 
als solche an Prozeduren übergeben werden. Implizit kann über 
einen Zeiger als Teil eines Verbundes und Übergabe dieses Verbun- 
des aber dennoch ein Zeiger in eine Prozedur importiert werden. 


WICHTIGE TIPS: 


* Initialisieren Sie neu deklarierte Zeiger stets mit einer ver- 
wertbaren Objektadresse, eventuell einen Dummy dafür anlegen. 
Nie langlebige Zeiger auf kurzlebige Objekte zeigen lassen! 


* Statt der nicht existierenden Funktionen MALLOC ('C') und NEW 
(Pascal), legen Sie sich ein genügend großes Datenfeld an, we- 
gen der short-indizes ggf. 2-dimensional deklarieren. Beim 
Schaffen eines neuen Objektes holt man dieses aus dem Vorrat. 
Auf diese Weise lassen sich vernetzte Datenbanken etc. sogar 
auf Massenspeichern samt Zeigern retten, wenn dafür gesorgt 
wird, daß die Basisadresse des raumspendenden Feldes stets 
gleich ist. (DCL auf Modulebene und mit Festadresse laden). 


DCL ENORM(500,500) MENSCH; /* Pufferplatz für MALLOC, NEW*/ 
DCL GIBHER REF MENSCH; 


GIBHER=ENORM (1,1); /* Auf erstes Objekt setzent/; 
Nochfrei=250000 (31); 

Nochfrei=Nochfrei-1(31); IF Nochfrei LT 0(31) THEN ..... 
POINTER=GIBHER; 

CALL REFADD (GIBHER,1); /* Zeiger verschieben */; 


Noch edler ist es, wenn man sich eine Kette der unbenutzten 
Plätze anlegt und so einzelne Plätze wieder frei geben kann. 
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Sonderfunktionen des UH-Compilers können entweder 'global' bei 
der Aktivierung der Compiler-Subtask oder 'lokal' durch beson- 
ders aufgebaute Kommentarzeilen aktiviert werden. Zu den globa- 
len Sonderfunktionen gehört z.B. der Übersetzungslauf ohne Code- 
generierung. Zu den globalen und lokalen Funktionen ist dagegen 
die An- und Abschaltung des Übersetzungsprotokolles zu rechnen. 
Rein lokale Funktionen sind dagegen etwa die mMarkiereroption 
(s.u)und die Code-protokollierung. 


Codegenerierung unterdrücken. 
Die Codegenerierung kann nur global unterdrückt werden. Dies 
geschieht bei der Aktivierung des Compilers durch CO=NO (siehe 
dazu B-II 'PEARL'). Eine wesentliche Zeitersparnis ist damit 
normalerweise zwar nicht verbunden, man erspart sich aber die 
Bereitstellung einer CO-Datei, wenn man zunächst nur an der 
syntaktischen Prüfung seines Programmes interessiert ist. 


Es wird (siehe B-II 'PEARL') global durch LO=NO aus- bzw. mit 
LO=device: file oder fehlende LO-spec. eingeschaltet. Für die 
lokale Steuerung ist eine Kommentaranweisung 


/*+L ...beliebiger Text */; zum Einschalten, bzw. 
/*-L ...beliebiger Text */; zum Abschalten vorgesehen. 


Unabhängig davon, ob das Übersetzungsprotokoll eingeschaltet ist 
oder nicht, werden Programmfehler in jedem Fall in das LO- 
medium ausgegeben. Auch die fehlerhafte(n) Zeilen erscheinen 
mitsamt dem Fehlerzeiger. 


Codeprotokollierung ein-/ausschalten. 

Urpsrünglich für die Überprüfung der korrekten Compilerfunktion 
gedacht, dann aber im System belassen, existiert eine Option zur 
Auflistung des generierten 68000- bzw. Hyperproccodes. Sie wird 
mit 


/*+P ... beliebiger Text */; eingeschaltet und mit 
/*-P ... beliebiger Text */; wieder ausgeschaltet. 


In das Übersetzungsprotokoll eingebettet erscheint bei dieser 
Option für jeden generierten Befehl eine Zeile. Dabei wird der 
auf den Modulanfang relativierte Programmzähler, der Befehlmnemo 
sowie die Liste der Operanden (unter Verwendung der PEARL- 
namen!) ausgegeben. Der generierte Code gehört jeweils zur 
nächsten protokollierten PEARL-Programmzeile, wird also quasi 
mit dieser abgeschlossen. Die Hyperprocbefehle sind im Teil für 
Systemprogrammierer weiter hinten erläutert, die 68000-Maschi- 
nenbefehle erscheinen mit modifizierten Mnemos, etwa ADDX statt 
ADD.L (X=xtend 32 bit), können in der Regel aber leicht 
identifiziert werden. Mit Flügeln versehene Operationen sind 
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sog. "Loader-messages', die i.a. nicht interessieren dürften. 
(AC, ACCU = Register D® oder DO+D1) 


Markierungsoption ein-/ausschalten. 


Der UH-Compiler ermöglicht mit Hilfe dieser Option die statische 
und dynamische Einbettung von PEARL-Zeilennummern in das gene- 
rierte Maschinenprogramm. Damit wird z.B. der Zeilenstop auf 
Hochsprachebene (siehe B-II 'TRACE') ermöglicht, aber auch die 
Ausgabe der letzten exekutierten PEARL-Zeile im Falle von 
Laufzeitfehlern vorbereitet. Die Kommentare 


/*+M ...beliebiger Text */; dienen zum Ein- sowie mit 
/*-M ...beliebiger Text */; zum Abschalten der Option. 


Zeilen, die nur ein Fragment einer mehrzeiligen Anweisung 
enthalten, können nicht markiert werden. Der Compiler setzt vor 
den Code der ersten PEARL-Anweisung jeder Zeile, die im Bereich 
eingeschalteter Option liegt, einen 4 byte langen Spezialbefehl. 
Dieser besteht aus einem TRAP oder Hyperprocbefehl mit nachfol 
gender Zeilennummer, die mit Hex-digits dezimal zu lesen ist. 
Aufgabe dieses Befehles ist, die Zeilennummer in eine spezielle 
Zelle der Task zu schreiben und dabei zu prüfen, ob für die 
Zeile ein Zeilenstop vorliegt. Wenn es der Platz erlaubt, sollte 
möglichst die komplette zu prüfende Task mit eingeschalteter 
Option übersetzt werden, da sonst leicht Fehlinterpretationen 
über den Fehlerort möglich sind. Da die Zeilennummern nur 
vierstellig abgelegt werden, können Zeilennummern größer als 
9999 nur modulo 10000 Berücksichtigung finden. 

Die Geschwindigkeitsverluste durch diese Option sind im Allge- 
meinen nur bei wenigen Prozent zu vermuten. 

Die 'M'-option ermöglicht mit Hilfe des 'DL'-Befehles (B-II) 
jederzeit Schnappschüsse der aktuellen Zeilennummer laufender 
Tasks. 


Feldindex- und characterselector Test einschalten. 


Mit Hilfe dieser 'T'-option generiert der Compiler einen modifi- 
zierten Code, der die Einhaltung der Zugriffsgrenzen zur Lauf- 
zeit überprüft. Bei mehrdimensionalen Feldern wird dabei jedoch 
nicht jeder einzelne Index sondern nur der effektive eindimen- 
sionale Resultatindex überprüft. Damit kann die Zerstörung von 
Code oder Daten ausserhalb des Feldes bzw. der Zeichenkette mit 
Sicherheit unterbunden werden. 


/*+T beliebiger Text .. */; Testmode einschalten. 
/*-T beliebiger Text .. */; Testmode ausschalten. 
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Bei Verletzung der durch das originäre DCL fixierten Grenzen 
wird eine Systemmeldung abgesetzt, die entweder die letzte 
registrierte Zeilennummer oder -falls nicht vorhanden- die 
Speicherstelle des Zugriffscodes enthält. Das Programm kann mit 
CONTINUE fortgesetzt werden, der Zugriff erfolgt dann ersatz- 
weise auf das erste Element des Feldes bzw. der Zeichenkette. 


Big module - option. 


Soll die Größe des Modules den Wert von 32 kB überschreiten oder 
sind mehr als 4096 Bytes Konstanten zu erwarten, so kann dem 
Compiler eine andere Verwaltung des Konstantenpooles aufgezwun- 
gen werden: 


I*+B */; Nach jedem Task-/Proc-end Pool leeren. 
kB */; Erst beim MODEND den Pool leeren. 


Standardmäßig ist die 'B'-option abgeschaltet, da dies den 
kürzesten Code ergibt. Nach Einschalten der Option dürfen alle 
Tasks/Procs jeweils bis zu 32 kB langen Code und jeweils bis zu 
4096 Bytes Konstanten belegen, d.h. die sonst für das Modul 
gültigen Grenzen gelten nunmehr pro Task/Proc, was kaum noch als 
ernsthafte Beschraenkung anzusehen ist. 


Anmerkung: Die obigen Grenzen gelten nur für den Maschinencode, 
Variablenspeicher ist hiervon nicht betroffen. 


==, WICHTIG: 
Die Überschreitung der 4096 Byte Grenze in einem einzelnen Modul 
(oder bei +B in einer Task/Proc) für den Konstantenpool wird 
erst vom Lader gemerkt und etwas irreführend als "WRONG REC- 
CHECKSUM' gemeldet. Abhilfe: Die vielen Textkonstanten als 
Modulvariable mit INIT ablegen, dann reicht der Konstantenpool 
wohl immer aus. 
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Im Folgenden wird ein Auszug der Zeichenketten gegeben, die für 
den PEARL-Compiler besondere Bedeutung haben. Nicht aufgeführt 
sind allgemein übliche Zeichen sowie die Systemnamen der Daten- 
stationen. 


A,A(shortintegerexpr.) In Formatliste: Textformat autom., fest. 
ABS float-/integerexpr. Monadischer Operator: Absolutbetrag. 
ACOS (floatexpr.) Arcus Cosinus Einbaufunktion. 
ACTIVATE task (PRIO) Aktivierung einer Task. 
AFTER durationexpr.. Einplanung Task nach Zeitdauer. 
ALL durationexpr.. Zyklische Einplanung für Taskaktivierung. 
ALPHIC In SPC von Datenstationen: Alphanumeric. 
AI=.. Im Systemteil: Additional Information for Device-driver. 
ALT pearl-statement Alternative im CASE-Wirkungsbereich. 
AND Dyadischer Operator: Logisch 'UND'. 
ASIN(floatexpr.) Arcus sinus Einbaufunktion. 
AT: clockexpr.....% Einplanung einer Task auf Zeitpunkt. 
ATAN (£floatexpr.) Arcus Tangens Einbaufunktion. 
B,B1,B3,B4 In Bitkonst. und Formatlisten: Binär, oktal, hex. 
BASIC In SPC: Datenstation vom Grundtyp (A/D-Wandler). 
BEGIN Neuen Programmblock aufmachen. 
BIT, BIT(length) In DCL und SPC Einführung BIT-Variable. 
.BIT(shortintegerexpr.) Hinter BIT-objekten: Einzelbitselekt. 
BY shortintegerexpr. Innerhalb REPEAT: Inkrement festsetzen. 

2“ Anweisungsanfang: Anfang REPEAT-Schl. 
BY formatlist Anschluß eines Formates für Ein/Ausg. 
CALL procedure Aufruf einer Prozedur, nicht:Funktion. 
CASE shortintegerexpr. Fallverzweigung mit nachfolgenden ALT. 
CAT zwischen zwei expr. Dyadischer Operator: Textkonkatenation. 
CHAR, CHAR (Length) In DCL und SPC Einführung für Textvar. 
CHARACTER, CHARACTER (length) Langform von CHAR. 
.CHAR (shortintegerexpr.) Hinter Textobjekten: Zeichenselektion. 
CLOCK In SPC/DCL: Datentyp Clock festsetzen. 
CLOSE dation Schließen einer Datenstation. 
CONT refvariable Zugriff auf das 'gezeigte' Objekt. 
CONTINUE task Allein oder nach Schedule: Task forts. 
CONTROL (ALL) In SPC: Beim UH-PEARL für alle ALPHIC-stationen. 
cos (floatexpr.) Cosinus Einbaufunktion. 
CSHIFT zwischen expr. Dyadischer Operator: Cyclic shift. 
DATION In SPC und PROC-Def.: Typ Datenstation. 
DCL liste, datentyp .. Definition von Variablen, Datentypen. 


DECLARE liste, datentyp 
DISABLE interrupt 
DUR 


Langform von DCL. 
Prozeßinterrupt freigeben. 
In DCL und SPC: Einführung Zeitdauerobjekt. 
DURATION Langform von DUR. 
DURING duration Innerhalb eines Schedules: Zeitdauer. 
Eile.) In Formatliste: Gleitkommaexponetialformat. 
ELSE pearlstatement Innerhalb IF: Alternativzweig. 
ENABLE interrupt Prozeßinterrupt zulassen. 
END; Ende von REPEAT-,Task-,PROC-,BEGIN-Blöcken. 
ENTIER floatexpr. Monadischer Op.: Abrunden auf Integer. 
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ENTRY, ENTRY(..) In SPC: Prozedur, Funktion spezifizieren. 
EQ zwischen expr. Dyadischer Operator: Vergleich erg:bitlexpr. 
EVERY duration Im UH-PEARL wie ALL behandelt. 
EXOR zwischen expr. Dyadischer Operator: Log. EXCUSIVES ODER. 
EXP (floatexpr.) Exponentialeinbaufunktion. 
Eile) In Formatliste: Festkommaformat. 
FIN; Ende von IF- und CASE- Wirkungsbereichen. 
FIT zwischen expr. Dyadischer Op.: Genauigkeiten anpassen. 
FIXED, FIXED(15), FIXED(31) Defaultlänge, kurze, lange Integer. 
FLOAT, FLOAT(23), FLOAT(55) Defaultlänge, kurze, lange Float. 
FOR name .... Anfang einer REPEAT-Schleife. 
FORMAT (formatliste) Definition eines 'Remote'-Formates. 
FROM dation In TAKE, GET und READ: Stationsanschl. 
GE zwischen expr. Dyadischer Operator: Greater or Equal. 
GET liste FROM dation BY format Alphanumerische Eingabe. 
(CALL) GETPIX(...) Einbaufunktion: Farbe eines Pixels holen. 
GLOBAL In SPC und DCL: Objekt modulübergreifend. 
GOTO label Immer ein Wort! Springe zu Marke label. 
GT zwischen expr. Dyadischer Operator: Greater Than. 
HRS In duration-konstanten: Anzahl Stunden. 
IDENT In Proc-def.: Objekt im Ident-mode überg. 
IF bitlexpr. THEN .. Bedingte Programmverzweigung. 
IN In SPC für DATION: Eingabegerät. 
INDUCE signal ı Erkennt Compiler, jedoch nicht implen. 
INIT(liste) In DCL: Anfangsdaten festlegen. 
INOUT In SPC für DATION: Ein/Ausgabegerät. 
INTERRUPT In SPC: Interrupt mit Namen versehen. 
INV In SPC/DCL: Objekt ist unveränderlich. 
IRPT Kurzform von INTERRUPT. 
TS Vergleich von REF/REF oder REF/Objectadr. 
ISNT Vergleich von REF/REF oder REF/Objectadr. 
LE zwischen expr. Dyadischer Operator: Less or Equal. 
LENGTH datentyp Defaultlänge von Daten vereinbaren. 
LD/ldn,drive/.filename Im Systemteil: Logical device-definiton. 
LD(£loatexpr.) Einbaufunktion: Dualer Logarithmus. 
LG (£floatexpr.) Einbaufunktion: Dekadischer Logarithmus. 
(CALL) LINE(....) Einbaufunktion für schnelle Grundgrafik. 
LIST In Formaten: Automatische Anp. an Datentyp. 
LN (£floatexpr.) Einbaufunktion: Natürlicher Logarithmus. 
LT zwischen expr. Dyadischer Operator: Less Than. 
MIN In Durationkonstanten: Anzahl Minuten. 
MODEND; Ende des PEARL-Modules. 
MODULE name; PEARL-Modul mit Namen eröffnen. 
NE Im Systemteil: No error-messages on userterminal. 
NE zwischen expr. Dyadischer Operator: Not Equal. 
NIL Zeigerwert 'Nichts'. 
NOT bitexpr. Monadischer Operator: Alle Bit invertieren. 
NOW Clocktype-result: Aktuelle Uhrzeit. 
ON signal ır Wird vom Compiler erkannt, aber nicht impl. 
OPEN dation Datenstation öffnen. 
OR zwischen bitexpr. Dyadischer Operator: log. 'ODER'. 
OUT pearlstatement In CASE: Fluchtaussprung wenn außerhalb. 
PAGE In Formatliste: Seitenvorschub. 
PRESET (integerliste) In DCL für Semaphore: Anfangswert. 
PREVENT task Einplanungen und gepuff. Akt. löschen. 
PRIO integerconst. Bei Activate und Taskdef: Priorität. 
PROBLEM; Ende Systemteil, Anfang Problenteil. 
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PROC, PROC (par.liste) Prozedur oder Funktion definieren. 
PUT liste TO dation BY format Alphanumerische Ausgabe. 
READ liste' FROM dation; Unformatiertes Lesen. 
REENT Y Prozedur- Funktionsattribut: Reentrant. 
REF ä In DCL/SPC: Deklaration/Spez. eines Zeigers. 
(CALL) REFADD(zeiger,shift) Einb.fkt:Verschiebung eines Zeigers. 
RELEASE semavariable Semaphore hochzählen. 
REM Dyadischer Operator: Remainder bilden. 
REPEAT Begrenzte oder unbegrenzte Wiederholung. 
REQUEST semavariable Semaphore abfragen bzw. erniedrigen. 
RESIDENT Taskattribut: 'wird eilig aktiviert'. 
RESUME Nach Schedule: Task später fortsetzen. 
RETURN, RETURN (expr.) Prozedur-, Funktionsrücksprung. 
RETURNS (datentyp) In Funktionsdef./-spezif: Rückgabetyp. 
(CALL) REWIND (dation) Einbaufunktion: File zurückspulen. 
ROUND floatexpr. Monadischer Operator: Symm, runden auf Int. 
(CALL) SAVEP (dation,longfixed) Einbaufunktion: Save position. 
SEC In Duration-konstanten: Anzahl Sekunden. 
(CALL) SEEK (dation, longfixed) Einbaufunktio File positionier. 
SEMA In SPC/DCL: Semaphorvariable. 
SEMASET integerexpr. ,‚,semavariable Nicht-PEARL: Sema dyn. Init. 
SEND liste TO dation; Ausgabe für BASIC-Stationen. 
(CALL) SETPIX(....) Einbaufunktion Grundgrafik. 
SHIFT zwischen expr. Dyadischer Op.: Shift Bitstring. 
SIGN duration-,float-,fixedexpr. Monadischer Op.: Signumfkt. 
SIGNAL In SPC: Signal mit Namen belegen. 
SIN(f£floatexpr.) Einbaufunktion: Sinus. 
SKIP In Formatlisten: Neue Zeile anfangen. 
SPC liste datentypen Spezifikation anderweitig def. Objekte. 
SPECIFY Langform von SPC. 
SORT (£floatexpr.} Einbaufunktion: Quadratwurzel. 
ST(dation) Besondere Einbaufunktion: Status der Datenstat. 
STRUCHLY. ua ı/) In SPC/DCL: zusammengesetzte Datentype. 
SUSPEND; Eigene Task suspendieren. 
(CALL) SYNC (dation) Einbaufunktion: Synchronisiere File. 
SYSTEM; Beginn des Systemteiles. 
TAKE liste FROM dation; Eingabe für BASIC-Datenstationen. 
TAN (floatexpr.) Einbaufunktion: Tangens. 
TASK (PRIO ..) Definition einer Task. 
TERMINATE, TERMINATE task Eigene, fremde Task abbrechen. 
TFU= Im Systemteil bei Dations: Transferunit festlegen. 
TO shortintegerexpr. Als/in REPEAT: Obergrenze festlegen. 
TO dation In Ausgabeanweisungen: Datenstation angeben. 
TYPE identif. datentyp Definition eines eigenen Datentypes. 
UNTIL clockexpr. In schedules: zeitliche Obergrenze. 
UPB zwischen expr. Dyadischer Operator: i-te Upperbound Array. 
WHEN interrupt Taskeinplanung für Prozeßinterrupt. 
WHILE bitlexpr. REPEAT In Laufschleife oder reine WHILE Schl. 
WRITE liste TO dation. Unformatierte Ausgabe. 
x In Formatliste: Leerzeichen. 
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PEARL-SCHLÜSSELWORTE 


Außer den nicht aufgeführten Operatoren (+,- etc.) gibt es: 


entspricht CAT 
I: CSHIFT 
. EQ 


nuıva 


0 
". LT 


SNSAAVVIAYV 


sin 


Ganzzahldivision von FIXED-Objekten, Rest verloren. 
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RTOS-UH PEARL - Syntax 


Die Syntax-Beschreibung orientiert sich an der Backus-Naur-Form, 
einem Verfahren zur Darstellung einer kontextfreien Grammatik. 
Im Einzelnen bedeuten: 


| eine ®- bis n-malige Wiederholung des von den Klam- 
mern eingeschlossenen Teiles 


Bil das optionale Auftreten des von den Klammern einge- 
schlossenen Teiles 


() eine Klammerung wie im normalen Gebrauch der Mathe- 
matik. 


i trennt Alternativen, von denen genau eine abgear- 
beitet werden muß. 


unterstrichene Fettschrift kennzeichnet terminale PEARL-Symbole,d. 
h. Symbole, die nicht weiter entwickelt werden 
können. 


Normalschrift kennzeichnet nicht-terminale Symbole 
Kursivschrift dient nur zur Erläuterung. Kursiv geschriebene 


Textstellen werden in den Produktionsregeln nicht 
berücksichtigt. 


bezeichnet eine Produktionsregel zur Auswertung 
nicht-terminaler Symbole 


Sinn und Zweck dieser Beschreibungsform ist es, die Überprüfung 
eines vorliegenden Programmes auf syntaktische Korrektheit zu er- 
möglichen. Hierzu wird das Startsymbol "PEARL-Programm" schritt- 
weise gemäß den aufgezeichneten Produktionsregeln in eine Folge 
von (fett und unterstrichen) gedruckten Terminal-(Schluß-) 
Symbolen entwickelt. 

Z. B. ergibt sich als erster Entwicklungsschritt, daß ein PEARL- 
Programm aus der Folge einer beliebigen Anzahl von Modulen be- 
steht. 

Die weitere Entwicklung ermöglicht eine Syntax-Prüfung. 

Nicht erfaßt wird hierbei die Semantik der Sprache. 


Hier ist nur eine vereinfachte Version des für - den Compilerbau 
verwendeten Regelwerkes verzeichnet. Es ist nicht sichergestellt, 
daß alle hier möglichen PEARL-Programme auch vom Compiler akzep- 
tiert werden; ebenso können, auch im Zuge der Compilerentwick- 
lung, Konstruktionen akzeptiert werden, die nicht mit diesen 
Produktionsregeln erzeugt werden können. 


Operatoren und I/O-Formate sind in der Anlage ausführlich be- 
schrieben. 


Anmerkung: Alle Produktionsregeln, die Zeigervariable betreffen, 
sind in diesem Regelwerk noch nicht aufgeführt. 
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binär-Ziffer::=9 ı 1 


octal-Ziffer::= binär-Ziffer 12 !31415161| 
Ziffer::= octal-Ziffer | 8 | 
hexadezimal-Ziffer::= Ziffer IAIBICIDIEI 
Buchstabe: = AI BIEIDUEBLFICEHRI LI WG 
NO DEIOTRISEITELFUIVIN 
al Bi ea te height 
aloe lpiIa ziel etulviw 
Sonderzeichen: := I rI = t*: ZI (Y:Ez 1. 
er are 
ae 
Zeichen::= Ziffer i Buchstabe | Sonderzeichen 
Name::= Buchstabe [ [ Buchstabe |! Ziffer | ] 
Namenliste::= ( Name [ ,„ Name | ) 
Namen::= Name ! Namenliste 
Ganzzahl::= Ziffer [ Ziffer |] 


PEARL-Programm::= Modul { Modul 


Ik 

E 

DEN DM] 
RS zel 
Ra ae 
ee? 
(er ae | 
TEE he) 


Modul::= MODULE [ Modul-Name ] ; [ Systemteil ] [ Problemteil ] 
MODEND ; 
Systemteil::= SYSTEM ; [| [ Gerätebenennung ; ] |] 
Gerätebenenung::= [ [ neuer_Geräte-Name :; ] | 
[ Geräte-Name [ Geräte-Eigenschaften ] ]J [<- I! <-> 12] 
Geräte-Eigenschaften::= ( Merkmal [ „ Merkmal [ „Merkmal ] ]J)\ 
Merkmal::= ( TFU = Ganzzahl ) | NE | ( AI = $ hex-Ganzzahl ) 
Problemteil::= PROBLEM ; Genauigkeits-/Längenfestlegung | 
Typdefinition | 
Spezifikation | 


Formatlisten-Vereinbarungen | 
Prozedur | 


Task 


Genauigkeits-/Längenfestlegung:: 


{ 
{ 
{ 
{ modulglobale_Vereinbarungen |} 
{ 
{ 
{ 


= LENGTH ( FIXED | FLOAT | 


CHAR i CHARACTER i BIT ) ( natürliche_Ganzzahl ) ; 


Typdefinition::= TYPE Name ( Grund-Datentyp | Verbund ) 


Grund-Datentyp::= ( 


( natürliche_Ganzzahl ) ] ) 


( 
[ 
UR | DURATION 


I CLOCK 


FIXED | FLOAT | CHAR ! CHARACTER | BIT ) 


Verbund::= Typ-Name | ( STRUCT ( (/ ı [ ) Komponente 
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{ „ Komponente |] 


A RD 
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Komponente::= [ Namen ] [ INV ] ( Grund-Datentyp | Verbund ) 


Spezifikation::= ( SPECIFY ! SPC ) Spezifizier-Element 
{ „ Spezifizier-Element } ; 


Spezifizier-Element::= Namen ( ( ( INTERRUPT | IRPT | Dation- 
Beschreibung ) [ GLOBAL ] ) ! 
{ Datenspez. | Prozedurspez. ) [ GLOBAL ] ) 

Dation-Beschreibung::= DATION ( IN ! OUT ı INOUT 

( ( ALPHIC CONTROL ( ALL ) ) | BASIC ) 

Datenspez.::= ( ( [ leere_Dimensionenliste ] [ INV ] 

( Grund-Datentyp ! Verbund ) ) | TASK | SEMA ) [ RESIDENT ] 
leere_Dimensionenliste::= ( [,] [.]\ 


Prozedurspez.::= ENTRY [ ( Parameterbeschreibung [ „ Parameterbe- 
schreibung | \ ] 


[ Funktionstypangabe ] [ RESIDENT ] [ REENT ] 
Parameterbeschreibung::= ( [ INV ] Grund-Datentyp ) |! 
Dation-Beschreibung IDENT |! 
[ leere_Dimensionenliste ] [ INV ] 
( Grund-Datentyp | Verbund ) IDENT 
Funktionstypangabe::= RETURNS ( Grund-Datentyp | Verbund ) 
modulglobale_Vereinbarungen::= ( DCL ! DECLARE ) Moduldaten 


I „ Moduldaten | ; 


Moduldaten::= Namen ( ( [ INV.] Grund-Datentyp [ RESIDENT ] 
[ GLOBAL ] [ Anfangswerte ] ) | 
( ( Verbund | Matrix ) [ RESIDENT ] [ GLOBAL ] ) | 
( SEMA [ RESIDENT ] [ GLOBAL ] [ Voreinstellung ] 
0) 


Anfangswerte::= INIT ( Konstantenwert [ „ Konstantemwert |) ) 
Matrix::= Dimensionenliste ( Grund-Datentyp ! Verbund ) 


Voreinstellung::= PRESET ( positive_Ganzzahl 
[ _ positive_Ganzzahl | ) 


Dimensionenliste::= ( natürliche_Ganzzahl [ „ natürliche_Ganzzahl ] 
[ „ natürliche_Ganzzahl ] ) 


Konstantenwert::= ( [ +# | — ] ( Zahlenkonstante | 
Zeitdauer-Konstante | 
Uhrzeit-Konstante 2 ı 
Zeichenketten-Konstante 
Bitketten-Konstante 
Zahlenkonstante::= Ganzzahl ! ( [ Ganzzahl ] . Ganzzahl 
[El[Ü+ | >=] Ganzzahl ] ) 
[ ( natürliche_Ganzzahl ) ] 
Zeitdauer-Konstante::= [ Ganzzahl HRS ] [ Ganzzahl MIN ] 


[ Ganzzahl . Ganzzahl SEC ] 
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Uhrzeit-Konstante::= Ganzzahl ; Ganzzahl : Ganzzahl 


Zeichenketten-Konstante::= ' [ Zeichen } ! 
Bitketten-Konstante::= ' ( ( binär-Ziffer [ binär-Ziffer | ' 
(819197) ! 


( octal-Ziffer [ octal-Ziffer | ! B3) | 
( hexadezimal-Ziffer 


{ hexadezimal-Ziffer | B4 )) 


Formatlisten-Vereinbarung::= Formatlisten-Name : FORMAT 


{ Formatliste ) ; 


Formatliste::= ( R ( Formatlisten-Name ) ) | 
( Multiplikator ( Formatliste ) ) 
( [ Multiplikator ] Format ) 


Multiplikator::= ( natürliche_Ganzzahl ) 
Format::= siehe Anhang Formate 
einf._Ausdruck::= Variablen-Name | ( [ # | = ] Ganzzahl 
Prozedur::= Prozedur-Kopf Blockrumpf END ; 
Prozedur-Kopf::= Prozedur-Name : ( PROC | PROCEDURE ) 

[ Parameterliste ] [ Funktionstypangabe ] 

[ RESIDENT ] [ REENT ] [ GLOBAL ] ; 
Parameterliste::= ( Parameterangabe [ „ Parameterangabe | ) 
Parameterangabe::= Parameter-Namen 


( Wertbeschreibung | Identitätsfestlegung ) 


Wertbeschreibung::= [ INV ] Grund-Datentyp 


Identitätsfestlegung::= ( Dation-Beschreibung | 
( [ leere_Dimensionenliste ] [ INV ] 
( Grund-Datentyp ! Verbund ) ) IDENT 
Blockrumpf::= [ blocklokale_Vereinbarungen | [ Anweisung | 
blocklokale_Vereinbarungen::= ( DCL ! DECLARE ) Blockdaten 


t „ Blockdaten | ; 


Blockdaten::= Namen ( [ INV ] Grund-Datentyp [ Anfangswerte ! 
( Verbund ! Matrix ) 


Anweisung::= [ Marken-Name : ] nichtmarkierte_Anweisung 
nichtmarkierte_Anweisung::= Begin-Block 
Zuweisung 


f 
! 
! 
Ablauf-Steueranweisung | 
Ein/Ausgabe-Anweisung |! 
Prozeduraufruf ! 
Rücksprung-Anweisung ı 
Echtzeit-Anweisung ! 


i 
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Begin-Block::= BEGIN Blockrumpf END ; 


Zuweisung::= Zugriffsausdruck ( = | ;= ) Ausdruck ; 
Zugriffsausdruck::= Variablen-Name [ Indexliste ] 
[ I „ Komponenten-Name } ] 


U. ( BIT ! CHAR ! CHARACTER ) ( Ausdruck ) ] 
Indexliste::= ( Ausdruck [ „ Ausdruck [ „ Ausdruck ] ] \ 


Ausdruck::= Primitivausdruck [ dyad._Operator Primitivausdruck | 


Primitivausdruck::= [ monad._Operator ] ( Konstantenwert N 
Zugriffsausdruck |! 
Funktionsaufruf | 
$ Ausdruck ) ) 

dyad._Operator::= siehe Anhang Operatoren 

monad._Operator::= siehe Anhang Operatoren 

Funktionsaufruf::= Funktionsprozedur-Name [ Argumentliste ] 

Argumentliste::= ( ( Ausdruck | Argument-Name 

{ „_ ( Ausdruck ıi Argument-Name ) | ) 


Ablauf-Steueranweisung::= 
( IE Ausdruck THEN [ Anweisung ]) [ ELSE [| Anweisung | ]J EIN; ) ı 
( CASE Ausdruck ALT Anweisung [ ALT Anweisung | 
[ OUT (- Anweisung | ] BIN. 7: .) | 
{ t € [ FOR Laufvariablen-Name [ FROM Ausdruck ] [ BY Ausdruck ] 
TO Ausdruck ] ) ! [ TO Ausdruck ] ) [ WHILE Ausdruck ] 
REPEAT Blockrumpf END ; ) 


( GOTO Sprungmarken-Name ; ) 


Ein/Ausgabe-Anweisung::= ( 
( OPEN | CLOSE ) } 
{ ( WRITE | PUT | SEND ) [ ( Konstantenwert | E/A-Objekt) 

{ „_ ( Konstantenwert ı E/A-Objekt ) | ] TO) I 
{ C READ | GET | TAKE ) [ E/A-Objekt | „ E/A-Objekt | ! TROM 
Dation-Zugriffsausdruck [ BY Formatliste ] ; 


E/A-Objekt::= Zugriffsausdruck | Variablen-Name 
Prozeduraufruf::= CALL Prozedur-Name [ Argumentliste ] ; 
Rücksprung-Anweisung::= RETURN [ ( Ausdruck ) ] ; 


Echtzeit-Anweisung::= Ereignis-Operation | Task-Steueranweisung | 
Koordinations-Anweisung 


Ereignis-Operation::= ( ENABLE ! DISABLE ) Interrupt-Zu- 
griffsausdruck ; 


Task-Steueranweisung::= Startanweisung 
Abbruch-Anweisung 
Anhalte-Anweisung 
Fortsetz-Anweisung 
Ausplanung 


Startanweisung::= [ Einplanung ] ACTIVATE Task-Name [ Priorität ] ; 
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Priorität::= ( PRIO | PRIORITY ) Ganz-Zahlenkonstante 


Einplanung::= ( Zeit-Einplanung [ zyklische_Einplanung ] ) I 
Ereignis-Einplanung 


( AT Clock-Ausdruck ) | 
( AFTER Dur-Ausdruck ) 


Zeit-Einplanung::= 


Ereignis-Einplanung::= ( WHEN Interrupt-Name [ ( Ganzzahl ) ] ) 
zyklische_Einplanung::= ( ALL | EVERY ) Dur-Ausdruck 
Ü ( UNTIL Clock-Ausdruck ) | 
( DURING Dur-Ausdruck ) ] 
Abbruch-Anweisung::= TERMINATE [ Task-Name ] ; 
Anhalte-Anweisung::= ( ( Zeit-Einplanung !| Ereignis-Einplanung ) 
RESUME ; ) | ( SUSPEND [ Task-Name ] ; ) 
Fortsetz-Anweisung::= [ Ereignis-Einplanung | Zeit-Einplanng ] 


CONTINUE Task-Name 


Ausplanung::= PREVENT Task-Name ; 

Koordinations-Anweisung::= ( REQUEST | RELEASE ) Sema-Name ; 
Task::= Task-Kopf Blockrumpf END ; 

Task-Kopf::= Task-Name : TASK [ Priorität ] 


[ RESIDENT ] [ GLOBAL ] ; 
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Anhang Operatoren 


a) Monadische Operatoren 


4 a 4-4 + 
I Syntax I Operandentyp | Ergebnistyp | Bedeutung ! 
+ - + a + 
f I FIXED (p) ! FIXED (p) |! 
(1 ! FLOAT (p) ! FLOAT (p) ! 
j I DURATION ! DURATION | 
+----------- +------- 4-22 - + 
ia ! FIXED (p) ' FIXED (p) ! 
' ! FLOAT (p) l FLOAT (p) H 
+ - + 4m + 
ı NOoTa j BIT(k) ! BIT(k) | Invertieren aller | 
j ! ! ' bits } 
+ - + + 4-24 + 
! } FIXED (p) \ H ce:= Jal ' 
ı ABS a ! FLOAT (p) ' FLOAT (p) ! (Absolutwert) \ 
! j DURATION j DURATION | ! 
+4 - + 4-4 Hmmm + 
l l FIXED (p) I passt sich |! +1 für a0 | 
I SIGN a I FLOAT (p) | dem Ausdruck| c:= 0 für a=sd ı 
! | DURATION ı an ! j 
a 444 4-2 + + 
I ROUND a | FLOAT (p) ı FIXED(k) ! Runden zur nä- ) 
j ı j | hesten FIXED I 
+ - 4-22 4-2 4-22 + 
I TOFIXED a |  CHAR(1) I FIXED(p) | gem. ASCII j 
j l BIT(k) j {| k Bits linksbündig | 
4 - +=---- 4 4-0 + 
| TOFLOAT a | FIXED (p) ! FLOAT(k) ı; Trivial j 
+----------- a 44mm +------- + 
| TOBIT a j FIXED (k) ! BIT (p) ı 1:1 Transfer ' 
4 - 4 a 4 + 
I TOCHAR a | FIXED I CHAR (1) I gem. ASCII ! 
4-2 44 4-4 a ee + 
I ENTIER a | FLOAT (p) ! FIXED (k) I ce:= näheste Ganz- | 
! ! i ! zahl <= a ' 
4-4 a 4-2 4 + 

b) dyadische Operatoren 
4---------- +47 4m 4 + + 
| Syntax IPRI! Typ a I Typb I Type I j 
+4 - 4-4 - 4 4 - 4-2 + 
latkb | 1 IFIXED(15) IFIXED(15) I}FIXED(15) | Exponentiation | 
I ! IFLOAT(p) IFIXED(15) IFLOAT(p) |! ! 
+---------- ++ - 4 4 a + 
! I | ! j ! Maximalindex ! 
| a UPB b ;} 1 }FIXED(15) |Matrix FIXED I der a-ten Di- |! 
! j ! ! ! | mension v. b } 
4---------- + + en 
i a FITb | 1 IFIXED(p) IFIXED(q) IFIXED(gq) | a wird der Län-i 
! H IFLOAT(p) IFLOAT(q) IFLOAT(q) | ge von b ange- | 
I | I j ı | paßt ! 
4 - 4-4 - +4--------- 4 4-22 + 
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+---------- +---+--------- +--------- +--------- 
| Syntax IPRIi Typ a ! 2ypH I Topic 
+=--------- +---4+--------- Seesen 
! ! IFIXED(p) IFIXED(gq) IFIXED(r) 
j ! IFIXED(p) !FLOAT(q) IFLOAT(r) 
larb ! 2 IFLOAT(p) !FIXED(q) IFLOAT(r) 
j j IFLOAT(p) IFLOAT(q) IFLOAT(r) 
! ! !FIXED(p) !DURATION |DURATION 
j ! IDURATION !FIXED(q) !DURATION 
+---------- +---+--------- +--------- +=--------- 
! ! IFIXED(p) !IFIXED(q) !|FLOAT(r) 
! t IFIXED(p) IFLOAT(q) IFLOAT(r) 
ıa/b I 2 IFLOAT(p) IFIXED(q) |FLOAT(r) 
! ! IFLOAT(p) !FLOAT(q) IFLOAT(r) 
! | IDURATION !FIXED IDURATION 
4. +=--+--------- + + 
! ! ı t ! 
! ! ! 1 ! 
ıa//b ! 2 IFIXED(p) IFIXED(q) IFIXED(r) 
! j ! ! ! 
ı ! ! i ! 
! ' ! ! I 
+-=------ +---4--------- +--------- 4 
[ur we 2) ! 2 ICHAR(n) !CHAR(m) ICHAR(k) 
ı acaATb | ! t ı 
+---------- +---+--------- +--------- +=-------- 
! ! IFIXED(p) IFIXED(gq) IFIXED(r) 
! ı IFIXED(p) IFLOAT(gq) IFLOAT(r) 
1 I IFLOAT(p) IFIXED(q) IFLOAT(r) 
ıat+tb ı 3 IFLOAT(p) IFLOAT(q) IFLOAT(r) 
! ı IDURATION IDURATION IDURATION 
! j !IDURATION I!CLOCK ICLOCK 
j ! ICLOCK IDUTATION ICLOCK 
+---------- +---+--------- +--------- +--------- 
! j IFIXED(P) IFIXED(g) IFIXED(r) 
! j IFIXED(p) IFLOAT(q) IFLOAT(r) 
j ! IFLOAT(p) IFIXED(g) IFLOAT(r) 
ta-b | 3 IFLOAT(p) IFLOAT(q) IFLOAT(r) 
! ! IDURATION !DURATION }DURATION 
I ! ICLOCK ICLOCK IDURATION 
! I ICLOCK !IDURATION ICLOCK 
+---------- +---+--------- +=-------- +=-------- 
1 ! ! j ! 
! ! j ' ! 
ta SHIFT b | 3 ıBIT(k) IFIXED (15) IBIT(k) 
ı ! ! ! ! 
! ! I j | 
+---------- +---+--------- +--------- +--------- 
I ! ! } j 
ta CSHIFT bi 3 IBIT(k) IFIXED (15) !IBIT(k) 
lac>b j ! ' ! 
l ! j ! | 
+---------- +---+--------- +--------- +--------- 
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+- + 


+- - - - 4 -- - - - 4-4... 4-- 4-44... 


messe A 
! 
a + 
t 
ı 
t 
} 
! 
I 
BESSER + 
H 
ce a / BD } 
r:= max(p,q) ! 
! 
! 
EEE EIER SE De 4 
:= ENTIER ABS | 
(a/b) * SIGN | 
(a/b), also | 
Ganzzahl-Divi- | 
sion 
r:= max(p,gq) j 
ee + 
Verkettung 'at+tb'| 
k=n+m 
a aeweeee + 
} 
! 
c:=a+tb j 
j 
r:= max(p,q) } 
j 
! 
Er UEEIERENE BERNIE SER, + 
} 
I 
a=a—b 
I 
r:= max(p,q) 
j 
! 
a ee M 


a um b Schrittel 
shiften, t 
® nachschieben | 
b>®d: nach links! 
b<d: rechts I 


a um b Schrittel 
zykl. shiften | 
nach links! 

rechts j 
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ec) 


+ - 4-4 ---- +--------- +--------- 4 + 
| Syntax IPRI!| Typ a ı pp bb I Wide l 
+---------- +---+--------- +--------- + - 4-0 + 
(En B I 4 IFIXED(q) IFIXED(r) !BIT(1) lc:='0'B (falsch) | 
a: ob I IFIXED(q) !IFLOAT(r) |! tc:='1'b (wahr) | 
+ + +FLOAT (q) +FIXED(r) + + + 
ıacGcTb ! IFLOAT(q) IFLOAT(r) | ıibei FIXED/FLOAT-! 
2er eb l ICLOCK ICLOCK ! Kombinationen ! 
+e=mannnnt +DURATION +DURATION + +wird FIXED zu su 
ıaLlEb ! } } ! IFLOAT gewandelt 
lac<=b t ' ! t ' ' 
+----- + + + + +Vergleich wird + 
I aGEb ! I ! ! ıibei Länge 
ıa>=b j ! ! l Imax(q,r) durch- ! 
ee erret 5 + & + +geführt + 
IaEQb ı 5 ICHAR (a) ICHAR (r) } ! j 
La==b ! IBIT (q) !BIT(r) ' Iggf. wird mit ' 
+ % + +' !' oder "Q"B u. 
! B ! Inach rechts auf-| 
j ! } gefüllt | 
+ a 4-20 + 
! !BIT (m) Ibei m’k wird mit! 
+ + +'0'B nach rechts+t 
! H laufgefüllt ! 
+ * + + 
j ! ! 
+ 4-20 + 


Einbaufunktionen 


Das System stellt wichtige, mathematische Elementarfunktionen 
zur Verfügung. 

Diese werden syntaktisch wie PEARL-Funktionsprozeduren behan- 

delt; sie dürfen im Systemteil nicht spezifiziert werden, da 

der Zugang zu den Routinen sonst verschüttet ist. 

Die Argumente müssen vom Typ FLOAT(23) oder FLOAT(55) sein; 

der Resultattyp entspricht dem Argumenttyp. 


Verfügbar sind: 

ACOS Arcus Cosinus 
ASIN Arcus Sinus 
ATAN Arcus Tangens 


cos Cosinus 

EXP Exponentialfunktion zur Basis e 
LD Logarithmus Dualis (Basis 2) 

LG Logarithmus (Basis 19) 

LN Logarithmus naturalis (Basis e) 
SIN Sinus 


SORT Quadratwurzel 
TAN Tangens 


Weiterhin werden die Funktionen RANF und DRANF zur Verfügung 
gestellt. Diese Funktionen dienen zur Erzeugung von Zufalls- 
zahlen; sie müssen im Systemteil spezifiziert werden. Be- 
schreibung s. Ende dieses Kapitels. 
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Anhang Formate 


Formate dienen zur formatierten Ein-/Ausgabe. Die Argumente der 
Formate sind, der Syntax folgend, einf._Ausdrücke. 
Bei der Formatbeschreibung werden folgende Symbole verwendet: 
s: Vorzeichen. Bei Ausgabe wird '+' durch ' ' ersetzt, bei 
Eingabe kann '+' entfallen (Default-Wert). 
Z: Ziffer. Z--Z meint eine beliebige, durch Argument und 
Format bestimmte Anzahl von Ziffern. 
[]l kennzeichnet optionale Elemente. 
Bei der Eingabe wird ein Eingabefeld unabhängig von der eventuell 
größeren Eingabefeldbreite durch ',' abgebrochen. 


Es sind folgende Formate verfügbar: 


F-Format 
Das F-Format verarbeitet FIXED- und FLOAT-Zahlen. Syntax: 


F ( Feldbreite [ „ Nachkommastellen [ „ Skalierung ] ]J L 


Ausgabe: 

- Ausgabefeldaufbau: ' sZz--2Z[.2--2]' 

- Es werden Feldbreite Zeichen erzeugt 

- Die Ausgabezeichenfolge steht rechtsbündig im Ausgabefeld. 

- Wird Nachkommastellen nicht angegeben, so entfällt auch der 
Dezimalpunkt; bei FLOAT wird geROUNDet. 

- Der ausgegebene Wert entspricht der auszugebenden Zahl, mul- 
tipliziert mit 10**'Skalierung’'. 


- Führende Nullen werden durch ' ' ersetzt (außer vor dem Dezi- 
malpunkt). 

Eingabe: 

- Eingabefeldaufbau: ' L[[s]Z--Z[.[Z--2)]] ' 


- Ein leeres Eingabefeld ergibt ® 

- Die Eingabezeichenfolge kann beliebig im Eingabefeld stehen. 

- Führende ' ' werden nicht ausgewertet. 

- Nachkommastellen und Skalierung defaultieren zu ® 

- Nachkommastellen wird nicht ausgewertet, sondern von der tat- 
sächlichen Eingabe bestimmt. 

- Abgespeichert wird der Eingabewert mit um Skalierung verscho- 
benem Dezimalpunkt. 


E-Format: 
Das E-Format verarbeitet FIXED- und FLOAT-Zahlen. Syntax: 


E ( Feldbreite [ „ Nachkommastellen [ „ Signifikanz ] ]J L 


Ausgabe: 

- Ausgabefeldaufbau: ' sZ--2.2--ZEsZZ' 

- Es werden Feldbreite Zeichen erzeugt. 

- Die Ausgabezeichenfolge steht rechtsbündig im Ausgabefeld. 
- Es folgen Nachkommastellen Zeichen auf den Dezimalpunkt. 

- Die Mantisse umfaßt Signifikanz Zeichen. 


Eingabe: 

- Eingabefeldaufbau: ' [[s] [2--2.2--Z] [E[s] [2[2]] 

- Die Eingabezeichenfolge kann beliebig im Eingabefeld stehen. 
- Nachkommastellen wird nicht ausgewertet. 
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A-Format 
Das A-Format verarbeitet Zeichenketten. Syntax: 


A [ ( Länge ) ] 


Ausgabe: 

- wird Länge nicht angegeben, so wird die genaue Länge der aus- 
zugebenden Zeichenkette verwendet. 

- Es werden Länge Zeichen erzeugt. 

- Die auszugebende Zeichenkette beginnt linksbündig im Ausgabe- 
feld. 

- ggf. wird nach rechts mit ' ' aufgefüllt. 


Eingabe: 

- wird Länge nicht angegeben, so wird maximal die Länge der 
einzulesenden Zeichenkettenvariable verwendet. Die Eingabe 
von Carriagereturn beendet die Eingabe vorzeitig. 

- wird Länge angegeben, so werden genau Länge Zeichen eingele- 


sen. 
- Die Zuweisung an die einzulesende Zeichenkette erfolgt 
linbksbündig; ggf. wird nach rechts mit ' ' aufgefüllt. 
B-Format 


Das B-Format verarbeitet Bitketten. Syntax: 


(BI B3 BA) [ ( Länge ) ] 
Die L1/O ist in binärer (B), octaler (B3) oder hexadezimaler 
(B4) Form möglich. 


Ausgabe: 

- wird Länge nicht angegeben, so wird die genaue Länge der aus- 
zugebenden Bitkette verwendet. 

- Es werden Länge Zeichen erzeugt. 

- Die auszugebende Bitkette wird rechtsbündig im Ausgabefeld 
einfetragen. 

- ggf. wird nach links mit '0' aufgefüllt. 


Eingabe: 

- wird Länge nicht angegeben, so wird die Länge der einzulesen- 
den Bitkette verwendet. 

- Die Zuweisung an die einzulesende Bitkette erfolgt rechtsbün- 
dig; ggf. wird mit '0' nach links aufgefüllt. 

- Länge > Länge der einzulesenden Bitkette wird nicht unter- 
stützt. 


T-Format 
Das T-Format bearbeitet Daten des Typs CLOCK. Syntax: 
T ( Feldbreite [ , Dezimalstellen ] \ 
Ausgabe: 


- Die Ausgabe erfolgt rechtsbündig im Ausgabefeld. 
- Dezimalstellen wird nodulo 3 verwendet. 
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Eingabe: 

- Dezimalstellen wird nicht verwendet. 

- Die Eingabe kann beliebig im Eingabefeld stehen, Leerzeichen 
bei den Doppelpunkten sind erlaubt. 


D-Format 
Das D-Format bearbeitet Daten des Typs DURATION. Syntax: 


D ( Feldbreite [ „ Dezimalstellen ] \ 


Ausgabe: 
- Die Ausgabe erfolgt rechtbündig in das Ausgabefeld. 
- Dezimalstellen wird modulo 3 ausgewertet. 


Eingabe: 
- Dezimalstellen wird nicht verwendet. 
- Die Eingabe kann beliebig im Eingabefeld stehen. 


- HRS, MIN, SEC müssen mit mindestens einem Leerzeichen von den 
umgebenden Zahlen getrennt werden. 


LIST-Format 
Das LIST-Format bearbeitet Daten jeden Typs. Syntax: 
LIST 
Normalerweise tut dieses Format genau das, was man erwartet. 


(Zumindest meistens, und bei nicht zu hohen Ansprüchen) 


R-Format 
Das R-(Remote-)-Format dient zur Abarbeitung vorher vereinbar- 
ter Formate. Syntax: 
R ( Format-Name \ 

Steuerelemente 
Die Steuerelemente dienen zur Ausgabesteuerung. Vorhanden sind 
X [ ( Ganzzahl ) ] 
Ausgabe: Eingabe: 


- Leerzeichen - überliest Zeichen 


SKIP [ ( Ganzzahl ) ] 


Ausgabe: Eingabe: 
- Zeilenvorschübe - überliest bis zur nächsten Ein- 
(CR und LF) gabezeile 


PAGE [ ( Ganzzahl ) ] gibt Seitenvorschübe aus ( FF ) 


Ausgabe: Eingabe: 
- Seitenvorschub - wie SKIP 
(FF) 
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Einbaufunktionen 


Im UH-PEARL sind neben den sogenannten "monadischen' Operatoren 
der DIN-Beschreibung darüberhinaus die wichtigsten mathematischen 
Funktionen als "Einbaufunktionen' realisiert. Einbaufunktionen 
werden vom Compiler eingebettet, ohne daß zur Laufzeit Zeitver- 
luste zur Parameterübergabe, Speicherplatzbeschaffung etc. auf- 
treten können. Sie sind infolge der automatischen Anpassung an 
einfache oder doppelte Floatgenauigkeit auch viel bequemer zu 
benutzen als dies mit Bibliotheksroutinen möglich wäre. Normaler- 
weise ist der Code der Einbaufunktionen als Scheibe (mathx.y) im 
RTOS-UH vorhanden. Allerdings können auch bei Fehlen der Scheibe 
über den Linkloader noch die nötigen Anschlüsse hergestellt wer- 
den. Aus diesem Grunde sind in der Tabelle auch die internen Sys- 
temnamen der Einsprungadressen angegeben. 


ACOS (expression) Arcus Cosinus #SACOS, #DACOS 
ASIN (expression) Arcus Sinus #SASIN, #DASIN 
ATAN (expression) Arcus Tangens #SATAN, #DATAN 
COS (expression) Cosinus #SCOosS, #DCOS 
EXP (expression) Exp. funktion Basis e #SEXP, HDEXP 
LD (expression) Logarithmus dualis #SLD, #DLD 
LG (expression) Logarithmus Basis 10 #SLG, #DLG 
LN (expression) Logarithmus naturalis #SLN, #DLN 
SIN (expression) Sinus #SSIN, #DSIN 
SQRT (expression) Quadratwurzel #SSQORT, #DSQRT 
TAN (expression) Tangens #STAN, #DTAN 


Alle der obigen Funktionen müssen FLOAT(23) oder FLOAT(55) Argu- 
mente haben. Der Resultattyp ist vom Typ des Argumentes. Die 
Funktionsnamen werden nicht in SPC etc. erklärt, sondern stehen 
sofort zur Verfügung. Wenn vom Nutzer gleichnamige Arrayvariable 
oder Funktionen deklariert bzw. spezifiziert werden, so ist der 
Zugang zur entsprechenden Einbaufunktion verschüttet. Während der 
Compilation überprüft der Compiler den Mode (FLOAT!) des in jedem 
Fall zu umklammernden Argumentes. Nicht SIN(1) sondern SIN(1.0)! 


Beispiele: 


X=SIN (a*b); 
Z=LN(25.0(55) 


IR Z muß vom Typ FLOAT(55) sein! 
v=ASIN(SIN(y)); 


Hauptwerte beachten,nicht v=y! 


Erscheint nach dem Laden des PEARL-Programmes eines oder mehrere 
der oben rechts angegebenen Internsymbole (daher '#') als undefi- 
niert, so fehlt die Math-Scheibe und sie müssen den Einbaufunk- 
tionsfile beim Laden mit einbinden. 


Die Einbaufunktionen können Laufzeitfehlermeldungen erzeugen, die 
durch Überschreitung von Grenzwerten verursacht sind. Dabei er- 
scheint neben dem Tasknamen (der exekutierenden Task) eine na- 
mentliche Bezeichnung der Einbaufunktion, sodaß die Ursache gut 
zu ermitteln ist. 
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Einbaufunktionen 


Die Funktion 'ST' zur Statusabfrage von Datenstationen. 


Aufruf: I=ST(Dationname) bzw. 
CASE ST(Dationname)+1 etc. wie skalares FIXED(15). 


Beschreibung: Der UH-PEARL-Compiler generiert einen Zugriff auf 
eine FIXED(15)-Zahl, die im SYSTEM-Block der angegebenen Daten- 
station abgelegt ist. Diese Zahl gibt an, ob und wenn welche Be- 
sonderheiten beim letzten 'PUT' oder 'GET' aufgetreten sind. Der 
ST-Wert wird zu Beginn jedes '"PUT' oder 'GET' auf Null gesetzt. 
Der Wert Null bezeichnet daher den ereignislosen Betriebs£fall. 


Mit Hilfe der ST-Abfrage ist es also möglich, z.B. syntaktisch 
falsche Eingaben programmgesteuert zu erkennen und geeignet da- 
rauf zu reagieren, und zwar unabhängig davon, ob die E/A-Fehler- 
meldungen der Station eingeschaltet sind oder nicht. 


Die Funktion kann auch das Ergebnis der Einbaufunktionen 'REWIND' 
"SEER', 'SAVEP', 'APPEND' und 'SYNC' überprüfen. (Setzen ST nicht 
auf Null! Zuweisung ST=0 über 'PUT(GET) TO(FROM) xy BY LIST'). 


Bedeutung der ST-Werte: 


Korrekte ereignislose Funktion. 

END-OF-FILE. Daten konnten nicht gelesen werden. 
Read-Error. Verschiedene Ursachen, z.B. File nicht exist. 
Falsche Eingabe-syntax, z.B. Buchstabe bei Zahleneingabe. 
Exponent (Float) out of range. 

FIXED-Input Zahlenüberlauf. 

B-Format Eingabestring zu lang. 

Sonderfehler des Drivers (z.B. Timeout etc.) 

Anzahl auszuführender SKIPS negativ. 

Anzahl auszuführender X oder PAGE negativ. 

Überlauf öffnender Klammern im Format. 

11: Datentyp und Format passen nicht zueinander. 

12: Datum in der Liste, aber kein Datenformat im Format. 

13: Überzählige schließende Klammer im Format. 

14: Dieses Gerät ist für diese Operation nicht geeignet. 

15: Pathlist zu lang. Liste gekürzt. 


r 
SOVEoAnULWDHO 


Wenn im PEARL-Programm ein Objekt mit Namen ST definiert wurde, 
so ist der Zugang zur Einbaufunktion verschüttet. Die Funktion 
darf daher (wie alle Einbaufunktionen) nicht mit SPC spezifiziert 
werden! 


Bei der Übertragung eines solchen PEARL-Programmes auf andere 
PEARL-Systeme kann man sich dann eine kompatible Funktion mit 
Hilfe dort (eventuell) vorhandener Signale (ON-Blöcke) selbst 
definieren. 


Bsp: LBL: PUT 'Geben Sie bitte x ein' TO TERM BY SKIP,A; 


GET x FROM TERM BY SKIP,F(10); 
IF ST(TERM) NE ® THEN GOTO LBL; FIN; 
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Einbaufunktionen 


Bitmapping Basis-grafik 'SETPIX', 'GETPIX' und 'LINE'. 


Aufruf: CALL SETPIX(xpos,ypos,colour); 
CALL GETPIX (xpos,ypos,colour); 
CALL LINE (x1pos,ylpos,x2pos,y2pos,colour); 


Beschreibung: In Wirklichkeit handelt es sich hier nicht um Pro- 
zeduraufrufe (die Syntax mit dem CALL ist nur wegen der PEARL- 
kompatibilität gewählt worden), sondern um extrem schnelle An- 


sprünge (Nur JSR/RTS als overhead!) der globalen Systemroutinen 
#SSETP/#SGETP/#SLINE wobei die FIXED(15)-Parameter in die Regi- 
ster DO .....D4 geladen werden. Falls in Ihrem System diese Rou- 


tinen nicht vorhanden sind, können sie leicht als Maschinenpro- 
gramme selbst geschrieben und beim Laden angelinkt werden. (Dabei 
hat man in den Routinen die Register D0-D7 und A0-A3 frei ver- 
fügbar). Im Standard ruft LINE intern die Funktion SETPIX auf, 
so daß ggf. nur SETPIX und GETPIX angepaßt werden müssen. 


SETPIX und GETPIX sind zueinander komplementär, d.h. mit GETPIX 
wird der dritte Parameter (muß variabel sein!) auf den mit SETPIX 
oder sonstwie erzeugten Wert gebracht. 


LINE führt eine Pixel-Interpolation durch, wobei Start- und End- 
pixel gesetzt und durch Zwischenpixel verbunden werden. 


Das Löschen von Punkten und Linien erfolgt durch Schreiben mit 
Anwahl der Hintergrundfarbe. 


Bsp: (Kasten) CALL LINE(i,j.i+10,5,1); 
CALL LINE(i,53.i,j+10,1); 
CALL LINE (i+10,5,i+10,3j+10,1); 
CALL LINE(i,5j+10,i1+10,5+10,1); 


Wenn alles in Ordnung ist, erscheint eine (wasserdichte) quadra- 
tische Kiste mit der linken oberen Ecke auf Position i,j. 


Achtung: Bedenken Sie, daß der Ablauf dieser Funktionen je nach 
Rechner evtl. mit sehr hoher Geschwindigkeit ausgeführt wird und 
unter Umständen nichts zu sehen ist, wenn das Objekt zu früh 
wieder gelöscht wird! (Abhilfe: Operation mit dem Vertikal-Pro- 
zeßinterrupt und WHEN ... synchronisieren, so daß mindestens ein 
Vollbild abgewartet wird). 


Wie bei allen Einbaufunktionen, so dürfen auch hier die Objekte 
SETPIX, GETPIX und LINE nirgends weder deklariert noch spezifi- 
ziert werden. Anderenfalls sind die Funktionen nicht mehr zugäng- 
Lich: 


Eine negative Farbe bedeutet, daß das Pixel durch Invertieren des 


Altzustandes erzeugt wird, nach erneutem Aufruf erscheint dort 
also wieder das alte Bild. 
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Einbaufunktionen 


Besondere I/O-operationen im UH-PEARL. 


Auch hier handelt es sich nicht um normale Unterprogrammaufrufe, 
sondern um Sonderfunktionen des UH-Compilers, die aus Kompatibi- 
litätsgründen zu anderen Systemen das CALL-Konstrukt benutzen. 
ST wird nur im Fehlerfalle geändert, also nicht auf Null gesetzt. 


CALL REWIND (dationname);..........r.00. Zurückspulen eines Files. 
CALL SYNC (dationname);......... .Speicher-File-Synchronisation. 
CALL SEEK (dationname, longfixed) .„.Aufsuchen des x.Byte im File. 


CALL SAVEP (dationname,, longfixed);...... Position des Files retten. 
CALL APPEND (dationname);......... Anhang an den File vorbereiten. 
REWIND: Der angegebene File wird zurückgespult. War er nicht 


vorhanden, so wird er neu eingerichtet. Ist das Gerät 
nicht rückspulbar, so erfolgt Meldung und ST=14. 


SYNC: Der angegebene File sowie alle anderen Files dieses 
Laufwerkes (Drive) wird mit dem Inhalt auf dem Medium 
so abgeglichen, daß z.B. danach alle Daten im Falle 
des Netzausfalles gerettet sind. Der Positionszeiger 
des Files, der Öffnungszustand etc. bleibt unverän- 
dert. Möglicherweise erfolgt überhaupt keine Aktion 
weil Memory und Medium (Floppy/Winch) bereits überein- 
stimmen. Im Fehlerfalle: Meldung und ST=14. 


SEER: Der File wird auf die Position gebracht, die durch den 
FIXED (31)-Wert bezeichnet wurde. Dies kann eventuell 
sogar hinter die aktuelle Schreibschlußmarke geschehen 
wenn der File von früherer Schreibaktivität noch grös- 
ser angelegt ist als er zur Zeit benutzt wird! 


SAVEP: Die- aktuelle Position (das wievielte Byte des Files 
das nächste zu schreibende sein wird ) wird in der 
FIXED(31)-Variablen abgelegt und steht dann für einen 
späteren SEEK zur Verfügung. 


Anmerkung: Das Paar SEEK/SAVEP ermöglicht den Aufbau verketteter 
Daten auf den Massenspeichermedien mit schnellem Zu- 
griff weil immer nur der Block der jeweils. betroffenen 
Stelle wirklich eingelesen wird. Meiden Sie möglichst 
die Nähe des File-Endes, da manche Filehandler nach 
dem Einlesen des letzten Bytes einen Auto-close für 
den File durchführen und damit das Laufzeitsystem so 
auf die (nach SEEK) falsche Fährte locken! 


APPEND: Verlängern des Files. Zur Zeit in keinem Driver imple- 


mentiert. Führt auf Meldung und ST=14. 


Wie bei allen Einbaufunktionen, so dürfen auch hier die scheinba- 
ren Prozedurnamen nicht deklariert oder spezifiziert werden, da 
der Übersetzer dann die Nutzerobjekte benutzen würde. 


Bsp: CALL SAVEP (MYFILE,I); “... CALL SEEK(MYFILE,IT); 
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Einbaufunktionen 
(READ/WRITE)1/2 


Besondere I/O Operation 


Prozeduren für den Binär-Transfer von Daten auf alle File ori- 
entierten Dationen. Die Prozeduren müssen spezifiziert werden: 


SPC (WRITE,READ) ENTRY GLOBAL; 
Für den Aufruf muß die folgende Syntax eingehalten werden: 


CALL WRITE (dationame,..VYariablenliste..); 
CALL READ (dationame,..Variablenliste..); 


Die in der Variablen-Liste aufgeführten Variablen ı 
Reihenfolge ihres Auftretens auf die angegebene D 
transferiert. 

Als Dation sind z.Z. nur Floppy bzw. Winchester und Edit-Files 
möglich, da diese das Binärformat unterstützen. Bei Edit-Files 
bitte die Dation 'EDB' ansprechen, da sonst das Binär-Format 
nicht unterstützt wird. 


den in der 
on 'binär' 


Variablen-Liste: 


- ARRAY-Typen werden komplett übertragen (total E/A) 
- es sind alle Variablen-Typen aus PEARL erlaubt 

- es können verschiedene Typen gemischt werden 

- die Länge der Liste ist nicht begrenzt 


Die Prozedur setzt am Ende der I/O Operation das Status-Byte der 
Dation, welches mit der Funktion ST(...) abgefragt werden kann. 
(siehe Einbaufunktionen -2-) 


Beispiel: 


MODULE ..; SYSTEM; ..FLOPPY: FO.MIST <->;..; 
PROBLEM; .... 
SPC (WRITE,READ) ENTRY GLOBAL; 
taskl: TASK;..... 
DCL FELD(1090,20) FIXED;DCL ARR(3) FLOAT;DCL R FLOAT(55); 
CALL WRITE (FLOPPY,FELD,ARR,R); 
CALL READ(FLOPPY,FELD,ARR,R); 
END; 
MODEND; 


Es ist darauf zu achten, daß beim Lesen und Schreiben der Daten 
die Parameterlisten übereinstimmen, da sonst falsche Werte zuge- 
wiesen werden. Bei Zugriff auf die Floppy/Winch-Laufwerke wird 
eine TFU von 32766 Byte benutzt. Bei einem Zugriff auf die Dation 
EDB. wird eine TFU von 128 Byte benutzt. 
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Einbaufunktionen 


(READ/WRITE) 2/2 


Eingestellte TFU für die einzelnen Dation: 


Edit -Files EDB.xxxxx 128 Byte 

-- für PEARL - Programme wird 'EDB' durch LD/1,1/ an- 
gesprochen. 

Floppy-Files Fy.XXAxx 32766 Byte 

Winch -Files Hy.XXxxx 32766 Byte 


!! Andere Dations werden derzeit nicht unterstützt. 


--Bitte Beachten-- 


Die Prozeduren führen kein REWIND durch, daher muß vor 
Benutzung die Position im File durch ein REWIND oder 
eingestellt werden. 
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der 
SEEK 


10.2 


Einbaufunktionen 


Die Einbaufunktion 'NOW'. 


Bei Verwendung des Symboles NOW in Ausdrücken, E/A-Listen etc. 
wird ein Objekt vom Typ CLOCK erzeugt, welches als Inhalt die 
aktuelle Uhrzeit erhält. Der Anschluß ist sehr schnell. 


Der Bezeichner 'NOW' darf nicht anderweitig deklariert oder ir- 
gendwie spezifiziert werden, da der Compiler sonst die Nutzer- 
vereinbarung bevorzugt. 


Bsp: PUT NOW TO Al BY SKIP,LIST; 


Starttime=NOW; 
RER (Rechnung) 
Elapsedtime=NOW-Starttime; 


Die Einbaufunktion 'REFADD'. 


Um die in PEARL nicht explizit vorgesehene Manipulation von Zei- 
gervariablen zu ermöglichen, wurde die Einbaufunktion REFADD ge- 
schaffen. Es handelt sich allerdings keinesfalls um einen wirk- 
lichen Prozeduraufruf, die CALL-Konstruktion wurde nur aus Kompa- 
tibilitätsgründen gewählt! Der Compiler generiert hier einen ge- 
schwindigkeitsoptimierten Maschinencode ohne JSR etc. 


CALL REFADD (Pointer ,Shift); 


Pointer: Eine REF-Variable beliebigen Typs. 
Shift: Ein FIXED(15) oder FIXED(31) Ausdruck, bzw. Konstante. 


Auf die Adreßvariable 'Pointer' wird der Wert Shift*Objektgröße 
aufaddiert. 'Objektgröße' ist die Anzahl Bytes, aus der der Da- 
tentyp, auf den 'Pointer' zeigt, besteht. 


Wichtiger Hinweis: Wenn 'Shift' eine Konstante ist, so werden 
die notwendigen Rechnungen schon zur Compilezeit erledigt und 
lediglich ein einziger ADD.. bzw. SUB.. -Befehl entsteht. Daher 
für 'Shift' nicht leichtfertig Ausdrücke oder Variablen verwen- 
den! 


Mit Hilfe der Einbaufunktion REFADD können auf einem kleinen Um- 
weg auch Felder mit mehr als 32000 Elementen adressiert werden, 
weil bei Shift auch die lange FIXED-Type erlaubt ist. 


Natürlich darf auch '"REFADD' nicht anderweitig deklariert oder 
irgendwie spezifiziert werden. 
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Einbaufunktionen 


Die Funktion 'ASSIGN' zum Ändern der Dation-Namen 


Diese Prozedur muß spezifiziert werden: 


SPC ASSIGN ENTRY(DATION INOUT ALPHIC CONTROL (ALL) IDENT, 
CHAR (24)) GLOBAL; 


Für den Aufruf muß die folgende Syntax eingehalten werden: 
CALL ASSIGN (Dation,newDation); 


In PEARL werden den Dations logische Namen zugewiesen, dieses 
erfolgt im System-Teil mit der Anweisung: 


logName : PhysName.Filename <->; 
Beispiel: 
Plotter: LD/12,3/.DRUCK ->; 


Mit der Anweisung OPEN logName BY IDF (newname) kann der Dation 
ein neuer Filename zugewiesen werden, es ist nicht möglich, die 
Ein/Ausgabe ohne Änderung des Quelltextes zu einer anderen Dation 
zu schicken. 


Hierzu wurde die Funktion 'ASSIGN' eingeführt, sie erlaubt die 
Zuweisung einer neuen Ein/Ausgabe-Dation aus einem PEARL-Programm 
heraus. 


Beispiel: (es soll die Ausgabe der Dation '"Plotter' auf ein 
Floppy-File umgelenkt werden) 


SYSTEM; 
Plotter: LD/12,3/.PLOTT ->; 
PROBLEM; 
SPC ASSIGN ENTRY(DATION INOUT ALPHIC CONTROL (ALL) IDENT, 
CHAR (24)) GLOBAL; 
es muß nun im PEARL-Programm eine der Anweisungen: 
GET newDation FROM TERMINAL BY A,SKIP; 
oder 
newDation = 'F0'; 
CALL ASSIGN (Plotter,newDation); stehen, und die Ausgabe 
kann auf die angegebene 
Dation umgelenkt werden. 


Falls bei 'newDation' der String 'TY' angegeben wird, so wird als 
Ein/Ausgabe-Dation das eigene Terminal (von dem das Programm 
gestartet wurde) benutzt. Für 'newDation' sind sämtliche im 
System implementierten Dationnamen, sowie die Bezeichner 'Lx' (x 
steht für die LDN der Dation) und das erwähnte 'TY' erlaubt. 


-- newDation ist vom Typ CHAR (24) 
-- Dation ist vom Typ DATION 
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Einbaufunktionen 


Die Funktionen RANF und DRANF zur Erzeugung von Zufallszahlen 


Die Funktionen müssen im Systemteil spezifiziert werden: 


SPC RANF ENTRY ( FIXED(31) IDENT, FIXED(31) IDENT) 
RETURNS (FLOAT(23)) GLOBAL; 


SPC DRANF ENTRY ( FIXED(31) IDENT, FIXED(31) IDENT) 
RETURNS (FLOAT (55)) GLOBAL; 


Nach Deklaration der Argumente mit dem korrekten Typ lautet der 
Aufruf: 


DCL ZufallN FLOAT, ( ZufallNMl, ZufallNM2 ) FIXED; 

ZufallN=RANF( ZufallNMl, ZufallnN2); 
Die Funktionen berechnen die neue 'Pseudo'-Zufallszahl ZufaliN 
aus den beiden vorangegangenen Zufallszahlen gemäß folgender For- 
mel: 

Xa = kı*Xa-ı - kz*Xo-2 ( mod 291-1 ) 

mit kı = 217 828 199, kz = 314 159 269 
Die erzeugten Zahlen liegen gleichverteilt im Intervall [®,1). 
Hat einer der beiden Parameter (oder beide Parameter) beim Aufruf 
den Wert 0, so wird er (oder werden beide) vor Ausführung der 
Rechnung auf die aktuelle Uhrzeit (in Millisekunden) gesetzt. 


Durch gezielte Vorbesetzung der Parameter lassen sich reprodu- 
zierbare Folgen von 'Pseudo'-Zufallszahlen erzeugen. 
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Einbaufunktionen 


Die Funktion 'TASKST' zum Feststellen eines Taskstatus 


Diese Prozedur muß spezifiziert werden: 
SPC TASKST ENTRY (CHAR(24)) RETURNS (BIT(32)) GLOBAL; 


Der Aufruf lautet: 
DCL Stat BIT(32); 


Stat = TASKST (Taskname); 


Die Funktion gibt den Wert 'FFFFFFFF'B4 zurück, wenn eine Task 
mit dem angegebenen Namen dem System unbekannt ist. Ist eine 
derartige Task im Speicher vorhanden, so hat Stat.BIT(1) folgende 
Bedeutung: 


'0'B : Task ist in irgendwelche Aktivitäten verwickelt 
'1'B : Task ist weder eingeplant noch in irgendwelche 
Aktivitäten verwickelt, jedoch dem System bekannt. 


Genauere Information über den Taskstatus sind in den Bits 17...32 
enthalten. Diese Informationen sind allerdings nur sehr 
eingeschränkter Aussagekraft, da in dem Zeitraum zwischen 
Funktionsaufruf und Auswertung des Funktionswertes durchaus 
Statusänderungen möglich sind. Es bedeutet (in PEARL-Notation, 
d.h. vom höchstwertigsten Bit (=Stat.BIT(1)) bis zum 
niederwertigsten Bit (=Stat.BIT(32)) numeriert: 


Bit-Nr. Aussage 
2..16 keine Bedeutung 

17 reserviert 

18 Waiting for I/O. Task wartet auf Ein-/Ausgabe 

19 Waiting for Activation. Sonderstatus: Task wartet auf 
Aktivierung. 

20 Suspend. Task ist suspendiert. 

21 Waiting for CE. Task wartet auf ein CE (Kontingent 
erschöpft oder Speicher voll). 

22 Waiting for Workspace. Task wartet auf Zusteilung von 
Workspace. 

23 Waiting for Sema. Task wartet auf Sema (vergeblicher 
Request). 

24 reserviert. . 

25 Planned for Activation. Für die Task liegt eine 
Einplanung irgendeiner Art vor. 

26 reserviert. 

27 Timed Activate. Task ist zeitlich zur Aktivierung 
eingeplant. 

28 Cyclic-Activate. Für die Task liegt eine Einplanung zur 
zyklischen Aktivierung vor. 

29 When...Activate. Task ist mit 'WHEN' zur Aktivierung 
eingeplant. 

30 Timed Continue. Task ist zeitlich zur Fortführung 
eingeplant. 

81 When...Continue. Task ist mit "WHEN" zur Fortführung 
eingeplant. 

32 Idle-Task. Task ist Idle-Task des Systens. 
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AUFRUF VON ASSEMBLER/FORTRAN-UNTERPROGRAMMEN. Call As/FTN-UP 


In der PEARL-Welt werden solche Unterprogramme nicht anders be- 
handelt als solche, die mit dem PEARL-Compiler in anderen Modulen 
übersetzt wurden. Das Objekt ist korrekt zu spezifizieren, wobei 
der Zusatz 'GLOBAL' erforderlich ist. 


Darüberhinaus können auch globale Objekte im Nicht-PEARL-Modul, 
z.B. FIXED Variablen im Assemblerprogrammodul, durch das Linking 
des Laders aus der PEARL-Welt adressiert werden. 


Hinsichtlich der korrekten Codierung des Assemblerprogrammes 
siehe detaillierte Beschreibung unter E-IV. 


Soweit FTN-Unterprogramme betroffen sind, sind natürlich die Ein- 
schränkungen hinsichtlich der dort möglichen Datentypen und Über- 
gabemodalitäten (nur per IDENT etc.) nicht zu umgehen. 


BEISPIEL: 

MODULE ....; SYSTEM; ....; 

PROBLEM; 
SPC Hilf ENTRY(FIXED IDENT) RETURNS(FLOAT) GLOBAL; 
task1:TASK; Eh 
x=Hil£(i); 
END; 

MODEND; 


z.B. mit LOAD ED:SR+ED:Hilfe; zu laden, wenn im File 
ED:Hilfe das übersetzte Assemblerprogramm abgelegt wurde. 
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Fehlermeldungen zur Compile-zeit Compilezeit-Fehler 


Obwonl die Meldungen durchweg selbsterklärend sind, soll im 
Folgenden speziell dem Systemneuling eine Hilfestellung gegeben 
werden. 


Zu unterscheiden sind 'lokal detektierbare' Fehler und "bilanz- 
detektierbare' Fehler. 


Lokal detektierbare Fehler. 


Der Compiler bettet in das Übersetzungsprotokoll zine 
prompt '*' in einer nach der falschen Zeile stehenden 
ein. Der Prompt steht in « unmittelbaren Nähe der 
der die Abweichung endgül - auch unter Ausnutzung 
anderer ' Interpretationen - festgestellt werden 
abgeschaltetem Übersetzerprotoko cheint die 
Zeile zusammen mit der Zusatzinformation. 


lerbehaftete 


In der Regel gilt eine fehlerhafte Anweisung als insgesamt nicht 
vorhanden. Dadurch können Folgefehler entstehen. 


/SYNTAX/ Es wurde keine PEARL-Produktionsregel gefunden. Das 
kann z.B. durch ein falsches Zeichen, etwa in einer 
Konstanten 3.14.2, oder falsch geschriebenes PEARL 
Schlüsselwort (TUSK statt TASK etc.) verursacht 
werden. Dabei gelten gewisse Schlüsselworte nur in 
der richtigen Blockumgebung als bekannt, z.B. wird 
bei der Sequenz MODULE; PUT xyz TO ... das SPUT. 
nicht akzeptiert, weil es nur auf Task/Proc-ebene 
benutzt werden kann. 


/MODE/ Bei der Verknüpfung von Daten wurden Datentypen, 
die nicht verknüpfbar sind, benutzt. Zum Beispiel 
wurde der DURATION-Variablen x der Wert der FLOAT- 
variablen z durch x=z; zugewiesen. Meist steht der 
Fehlerprompt hier am rechten Ende der Anweisung, 
weil der Compiler erst bei der Zuweisung die 
Zulässigkeit nach Auswertung der rechten Seite 
feststellen kann. 


Es ist auch möglich, daß eine Zeigervariable oder 
ein adresslieferndes Objekt erwartet wird und vom 
Compiler nun nicht vorgefunden wird, z.B. bei der 
Operation 'CONT', 'IS' etc. 


/UNDEFINED/ Die Variable bzw. der Prozedurname etc. wurden dem 
Compiler nicht durch DECLARE oder SPECIFY bekannt 
gemacht. 

/DOUBLE-DEF/ Der Identifier ist bereits im Gebrauch. 


/LIMIT/ Der Wert einer Konstanten liegt außerhalb der 
zulässigen Grenzen, z.B X=45196 (15) etc. 
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Compilezeit Fehler 


/SUBSCRIPTS/ Beim Zugriff auf ein Feld stimmt die Anzahl der 
Indizes nicht mit denen der Felddefinition-Spezi- 
fikation überein, z.B. DCL A(2,3) FIXED; 
A(I,J,K)=5. 


/DATAWAY/ Die Datenstation ist per Definition/Spezifikation 
oder auf Grund von Kenntnissen des Compilers nicht 
in der Lage, wie im Text beabsichtigt zu funktio- 


nieren. Beisp: SPC xyz DATION OUT ....;..; GET 
FROM xyz. 
/TOWHAT?/ Es wurden im INIT mehr Objekte gefunden als in der 


zugehörigen Deklarationsliste. Der Compiler kann 
die überzähligen Elemente nicht zuordnen, sie wer- 
den ignoriert. 

/INVARIANT/ Einem Objekt mit INV-Attribut soll zur Laufzeit ein 
Wert zugewiesen werden. 


/BL-STR./ Block-struktur verletzt, z.B. IE ;. /DHEN u. END: 
oder BEGIN ; FIN; Tritt häufig als Folgefehler 
auf. 

Bilanzdetektierbare Fehler: 

MISSING PROC/TASK. Dem Compiler wurde durch SPECIFY vor- 


geschwindelt, daß die angegebenen PR/TASK 
weiter unten im Modul noch definiert 


werden. Nun - zum MODEND - wird dem 
Compiler klar, daß er nicht mehr hoffen 
dar£. 

MISSING LABELS. Die angegebenen Marken wurden zwar 
angesprochen, aber nicht oder nicht 


blockkonform definiert. 


LIMIT-ERROR. Die tatsächliche Größe des Modules über- 
steigt den durch S=.. (bzw. default) 
festgelegten Kopfeintrag. Das Modul kann 
nur mit zusätzlichem SZ-Parameter beim 
LOAD geladen werden. 


Nicht sprachbedingte Fehlerkonditionen. 


CAN'T-READ. Der Eingabefile produziert Lesefehler: Abbruch. 
END-OF-SI. File zu Ende, bevor 'MODEND' akzeptiert wurde. 
i2..3TOO-LONG. Die Anweisung ist zu lang (mehr als 10 Zeilen) 
INT. ERROR Bitte schreiben Sie uns, wenn klar ist, dass 
Ihre Hardware/E-PROMs etc. in Ordnung ist!! 
OVERFLOW xy Nicht genügend Listenplatz, SZ bei P zu klein 
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Fehlermeldungen zur Laufzeit. Laufzeitfehler 


Bei Auftreten eines der unten aufgelisteten Fehler wird die 
entsprechende Meldung ausgegeben und die verursachende PEARL- 
Task läuft nach den beschreibenen Aktionen weiter. Einige 
Fehler führen zu einer Terminierung oder einer Suspendierung 
der PEARL-Task, dies ist bei den entsprechenden Meldungen 
vermerkt. 

Wenn das Programm mit der Markierungsoption /*+M*/ wueber- 
setzt wurde (zumindest teilweise), so wird vor der Fehler- 
meldung die letzte registrierte Hochsprachzeilennummer 
ausgegeben. (Im Programmbereich mit abgeschalteter Markerop- 
tion werden keine neuen Nummern registriert!) 


Dv/0o Divided by zero. 
Es wurde versucht, durch Null zu teilen. Für das 
Resultat wird die größte mögliche Zahl eingesetzt. 


END-OF-FILE Das Ende eines Files ist beim Lesen überschritten 
worden. Der File wurde vor dem Lesen nicht auf den 
Anfang gesetzt (CALL REWIND (dation) vergessen). 


FL.OV Floating over£flow. ABS(result) is GT 1.1...E37. 

Der Betrag des Resultates ist größer 1.1...E37. 
INPUT-SYNTAX Input-character violates format-syntax. 

Das Zeichen paßt nicht zum Eingabeformat, Zr B 


Buchstabe bei FIXED-Format. 


ILL) Illegal ')' in FORMAT-> destroyed/wrong coding. 
Die Anzahl rechter Klammern stimmt nicht. Kann nur 
bei Hyperprozessor-Benutzung im Assemblerprogramm 
passieren. 


IOFM I/O-FORMAT does not conform to data-type in list. 
Das Format paßt nicht zum Datentyp des Elements. 


IONS I/O not set up -> Destroyed/wrong machine-code. 
I/O nicht eröffnet! Kann nur bei zerstörtem Code oder 
Assemblerprogramm passieren. Terminiert die PEARL- 


Task. 
NDSF No data-spec. in FORMAT. { PUR XTO „u. BY SKIP) 
Die Formatanweisung für das Datum fehlt völlig. 
NDUR Negative duration (AFTER ..., All ... etc.) 
Die Zeitdauer ist negativ. 
NIEX Negative input-exponent for "FIXED' number. 
Der Exponent für die Eingabe einer FIXED-Zahl ist 
negativ. 
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NIM-DO 


OBIN 


OEXI 


OPNIDF 


PNUM 


PTYP 


PXFR 


X/PAG- 


PATHLT: 


READ 


RND/EN 


SKP- 


Not implem. hyperproc-instruction. Opcode in D®. 
Die V-Number in DO ist nicht implementiert. Alte S- 
Records geladen ?! Suspendiert die PEARL-Task. 


Overflow B-formatted input. 
Die Zahl paßt nicht in das angegebene Format. 


Overflow exponent on (numeric) input. 
Der Exponent ist zu groß oder zu klein. 


Open by IDF ...Syntax or length error. 
Die Zeichenkette beim IDF ist fehlerhaft. 


Parameter-numbers on caller-/proc-side not equal. 

Die Anzahl der Parameter auf der Aufruferseite stimmt 
nicht mit Anzahl der Prozedurseite überein. 
Terminiert die PEARL-Task. 


Parameter-types on caller-/proc-side: no match. 
Der Parametertyp stimmt nicht überein. Terminiert die 
PEARL-Task. 


Parameter xfer illegal. (IDENT-proc + INV-call) 
Der Aufruf stimmt nicht.Terminiert die PEARL-Task. 


X-/PAGE-count negative. (A=-3 ....X(A),PAGE(A),.) 
Die Anzahl Blanks oder PAGE ist negativ. 


TOO LONG in der angegebenen Pathlist wurde ein zu 
langer Bezeichner gefunden (Filename > 8 Zeichen). 


Can't read from inputfile. (GET + file empty etc.) 
Es kann nicht vom Eingabefile gelesen werden. 


"ROUND'/'ENTIER' overflow. Result > FIXED(15) 
Das Resultat einer Rundung paßt nicht in eine 
FIXED (15) Zahl. 


SKIP-count is negative. (A=-3; ... SKIP(A),...) 
Die Anzahl Skips ist negativ. 


SUSP: TASK NOT FOUND extern zu suspendierende Task 


TIME-OUT 


AIOV 


(OVF 


c-VI-2 


wurde nicht gefunden. Tritt bei einem Fremd-Suspend 
auf. 


Time out error. 
Nur bei bestimmten I/O-Treibern: Zeitüberwachung 
angesprochen, Gerät antwortet nicht. 


'FIXED'-number input-overflow. 
Die Zahl paßt nicht in die FIXED-Zahl. 


Left bracket or 'R'-FORMAT nesting overflow. 
Zuviele öffnende Klammern beim Format. 
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ASSEMBLER 


ALLGEMEINES. 

Der UH-Assembler für den Mikrorechner MC68000 ist virtuell 
codiert, er verhält sich daher unabhängig von der Gastmaschine in 
allen Implementierungen in gleicher Art und Weise. 


Ausgegeben werden 'S'-Rekords in einem gegenüber dem Original 
(Motorola) erweiterten Format. Die Ausgabe ist abgestimmt auf das 
PEARL-System RTOS-UH und dort bindefähig. Bei entsprechender 
Selbstbeschränkung (keine relativen Langadr., keine globalen 
Symbole) ist jedoch Motorolakompatibilität erreichbar. 


Bei der Codierung richte man sich nach dem Hardware- 
reference Manual vom Motorola. Man beachte dabei, daß 
---) die Immediateadressierung durch '=' statt '#' spezifi- 
ziert werden muß. 


EIGENSCHAFTEN. 

Der Assembler benötigt 2 Durchläufe. Das Quellprogramm muß 
zweimal angeboten werden, wenn die Quelldatei nicht 'rückspulbar' 
ist, es sei denn, der Assembler arbeitet im "automatic scratch- 
pad'-Mode, bei der er selbst eine Zwischendatei anfertigt. Die 
Betriebsparameter werden über das Bedieninterface besetzt: 


co=(Dev/File) Senke für die S-Records. 

LO=(Dev/File) Senke für die Liste mit Zeilennummer und 
Hexcode. Auch bei LO=NO werden die fehler- 
haften Zeilen aufgelistet. 

SC=(Dev/File) Scratch-device. Ist die Input - Datei rück- 
spulbar, so muß SC nur angegeben werden, 
wenn eine neue Quellendatei erstellt werden 
soll. Wenn SC angegeben ist, so wird es in 
jedem Fall benutzt. Bei SC=NO muß bei nicht 
rückspulbaren Dateien der Quellcode zweimal 
angeboten werden. 

SI=(DEV/FILE) Eingabe-datei. 


Bei Betrieb unter RTOS-UH kann zusätzlich noch der Speicherbe- 
reich und/oder die Bearbeitungspriorität angegeben werden. 


AUFBAU DER PROGRAMMZEILEN 

Jede Zeile enthält entweder einen Maschinenbefehl, einen virtu- 
ellen (Hyperprozessor) Befehl oder eine Direktive für den Assemb- 
ler selbst. Mehrere Anweisungen pro Zeile sind nicht zugelassen. 
Als Feldtrennung wird die Lücke (mind. 1 Blank), bei Befehlen, 
die mit und ohne Operand auftreten können, ein Block > 10 Blanks 
benutzt. 
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ASSEMBLER 


LABELFIELD 

Das Feld ist leer (mind. 1 Blank) oder enthält ein max. 6 Zeichen 
langes "'Labelsymbol'. Solche 'Labels' können auf drei Arten 
definiert werden: 


1% In Spalte 1 bedeutet '>': Das folgende Symbol wird als 
globales Symbol definiert und ist dem Lader später 
namentlich bekannt. Weitere Behandlung wie unter II. 


II. In Spalte 1 steht ein Buchstabe oder das Buchstabener- 
satzzeichen '#'. Es wird ein max. 6 Zeichen langes 
Symbol definiert und ihm der Wert des Location-counter 
(REL oder ABS) zugewiesen.Danach darf ein ':' folgen, 


muß aber nicht - eine Feldtrennung genügt. 


III. Spalte 1 enthält ein Leerzeichen. Das Symbol darf 
weiter hinten im Feld beginnen, aber es muß das 


Zeichen ':' folgen, damit erkennbar ist, daß kein OP- 
code gemeint sein kann. 


Innerhalb des Symboles sind Ziffern erlaubt. 


OPER AMT ON BR EIGD 


I. HARDWARE-INSTRUKTIONEN. 

Alle Mnemos des HARD-WARE-REFERENCE-MANUALS sind zugelassen. Eine 
Längenspezifikation (.L,.B,.W) ist nur hinter solchen Mnemos 
zugelassen, bei denen überhaupt eine Wahlfreiheit besteht. Fehlt 
die Längenangabe, so wird die dem Mnemo eingeprägte Länge - z.B. 
'.L' bei LEA - oder .W bei Wahlfreiheit substituiert. Bei dem 


Befehl MOVE muß daher im Ausnahmefall MOVE ...,USP die Länge 
MOVE.L ...,USP explizite angegeben werden, da sonst ein Length- 
error diagnostiziert wird. Bei Befehlen des Branch-types 


(BRA,BGE,BPL etc.) ist die Angabe .L oder .S möglich. Sie nimmt 
dem Assembler die Wahlfreiheit bei der Codierung dieser Befehle. 


Alle Hardware-Befehle werden auf geraden Positionszählerstand 
gesetzt, so kann z.B. nach einem 'DC.B' vom Assembler automatisch 
ein nicht besetztes Byte eingefügt werden, wenn der nachfolgende 
Befehl eine gerade Adresse verlangt. 


II. VIRTUELLE PEARL-LAUFZEIT-BEFEHLE (HYPERPROZESSOR) 


Diese Instruktionen haben den folgenden Aufbau 


Viren OP1,0P2,0P3,O0P4 
Dabei steht '...' für eine max. 3-stellige Dezimalzahl im Bereich 
0...255. Es sind 0...4 Operanden möglich, deren Syntax z.T. von 
der der realen Befehle abweicht. (s.u.). Gleiches gilt bei 


Verwendung eines mit OPD.V definierten virtuellen Benutzermnemos. 
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III. ASSEMBLER-DIREKTIVEN. 


Es gibt folgende Direktiven: ("BER ."RE", EIG. s.u.) 
Dec..% Datenablage wie bei Maschinenbefehlen, 
DEirss aber bei DC.B keine Positionsrundung. 
BE EBEN eu Ablage der 16-Bit Daten (Wert 'AE'). 
DEM AR nr wie oben. (.W ist Defaultbesetzung). 
DE.,.D: SAAB: ar e von 32 Bit Daten mit Wert 'AE'. 
DEE "EGE ; vun ternes globales Symbol ablegen. 
DE,B:- YAEN 0.056 der 8-Bit Daten ohne vorherige 
sitionsrundung. 
DE :Bi NSER? yes lage des Textstrings fort- 
aufenden Adressen. Das ist 
durch '' zu ersetz 
Bsp: DC.B "AB D* B'CD' 
Mischung "STR','AE',' AUBT 
END Ende dieser Assembliereinheit..Zwischen 
"END' und Kommentar d. 10 Blanks! 
END 'RE' Rückbezug für RTOS-UH herstellen. 
LBL EQU "AE" Defin. von LBL mit Wert 'AE' absolut. 
Die Eigenschaft 'logisch' wird nicht 
durch das EQU übertragen. VORSICHT! 
LBL EQU 'RE' Defin. von LBL mit Wert 'RE' relativ. 
LBL EQU 'RG' Defin. von LBL als Registersymbol. 
LBL EQU SR Defin. von LBL als Status-register. 
LBL EQU CCR Defin. von LBL als Cond.-Coderegister. 
LBL EQU USP Defin. von LBL als USER-A7. 
MNE OPD "AE' Defin. des Nutzer-Mnemos (ohne Opera- 
nden) MNE durch das 16-Bit-Wort 'AE'. 
MNE OPD.V 'AE' Defin. des Nutzer-Mnemos MNE als vir- 
tueller Laufzeitbefehl. 'AE' muß im 
Bereich 0...255 liegen, da sonst bei 
der späteren Benutzung ein '"LIMIT'- 
error erzeugt werden kann. Der so de- 
finierte Befehl kann O0 ... 4 Operan- 
den haben und und unterliegt der bei 
den V...- Befehlen üblichen Syntax. 
ORG "AE' 'AE' muß in Pass 1 definiert sein, 


der Wert wird in den Positionszähler 
geladen. Das Programm ist nun im ABS- 
mode und kann vom RTOS-UH-Lader nicht 
korrekt geladen werden, sofern nicht 
ausschließlich relativ adressiert 
wird. 

RORG 'AE' or 'RE' Wie bei ORG jedoch ist das Module 
jetzt verschieblich und kann korrekt 
vom Relativlader geladen werden. 

PAGE New Page. PAGE steht auf dem Anfang. 


DS "AE' Define storage, mit "AE' angegebene 


Zahl von Bytes freihalten. Inhalt der 
Bytes nach dem Laden undefiniert. 
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Die Adressierungsarten werden kleinlich mit den Hardwaremöglich- 
keiten verglichen. Diagnose: 'MODE-ERROR'. 


Bei 'MOVEM' ist eine Ordnung der Registerliste von DO in in 
Richtung A7 zwingend vorgeschrieben. (Schutz vor Tippfehlern). 


ADR.ART SYNTAX BEMERKUNGEN 
ABS-SHORT "AE' '"AE' siehe "ABS EXPRESSion'. 
ABS-LONG 'AE' Wenn 'AE' in Pass 1 > S$FFFF. 
(v) "AE'.L Wertunabhängig LONG. 
(V) Ext.glob. "EG' Wie ABS-LONG, kein Ausdruck. 
(V) REL-LONG 'RE'.L Rel. durch Lader. Wie 'AE'.L 
REG.DIR. "RG! gister-Symbol. 


INDIR.REG. ('AR') reßregistersymbol. 
PREDECR. = HAR") x 
POSTINCR. ("AR')+ s 
IND.REG+DISP. 'AE'('AR') 'AE' muß in 16 Bit passen. 
IND.A4+DISP. 'AE'.T TASK-WSP-Adr.-mode. 

(v) IND.A5S+DISP. 'AE'.X Local WSP Adr.-mode. 

V IND(IND.A5S+DISP) 'AE'.Z 32 Bit-end-adr. nur bei V! 


DSP+AR+IND. 'AE'('AR','RG') W-index, 'AE' 8 Bit! 
.. "AE'("AR".'RG'.MW) ni 
Rn "AE'('AR','RG'.L) .L index, Bi 
(V) PC-REL. 'RE' 'RE'=REL.Expression, s.u. 
PC-REL+IND. 'RE'('RG') .W index 
Ka "RE'('RG'.W) 
: 'RE'('RG'.L) .L Index 


LABEL "AE' Im ORG-Mode. Bcec, BRA, DBcc 
". 'RE' Im RORG-Mode. '' an k 
IMMEDIATE ='AE','RE' ACHTUNG: '=' statt '#'! 
(V) Die mit '(V)' gekennzeichneten Adressierungen sind 


auch bei virtuellen Befehlen zugelassen. 


'"'AE' ist ein Ausdruck, dessen Wert lageunabhängig ist 
"EG' ist ein Bezug auf ein extern definiertes Symbol: 


"EG' := >symbol; oder 'EG':= >symbol+$x; 
Für x ist eines der Zeichen 0...F (als Offset) 
erlaubt. '"symbol' repraesentiert das übliche max. 6 


Zeichen lange Symbol. 

BEISPIEL: JMP >TEST+S2 

Im eigenen Block definierte Globalsymbole können zwar, 
sollten aber nicht über diese Konstruktion angespro- 
chen werden. (Um den Lader zu entlasten). 


'RE' ist ein Ausdruck, dessen Wert einfach positiv von 
der Lage des Programmes abhängig ist. 
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ASSEMBLER 


In beiden Typen von Ausdrücken sind Klammerungen erlaubt, ebenso 
die Voranstellung monadischer Operatoren (+ oder -). Ausdrücke 
werden grundsätzlich mit 32-bit Arithmetik berechnet und erst in 
Pass 2 auf Einhaltung der zulässigen Grenzen überprüft. 


Bei '"AE' in Immediate und 'DC'-Anwendungen wird zusätzlich 
zwischen 'logisch' und 'arithmetisch' unterschieden. Ein 'AE' ist 
"logisch' wenn in ihm mindestens eine Sedezimalzahl auftritt. 
Eventuell muß man also die Zahl $0 addieren. Damit ist z.B. 
40126+$8 auch bei Beschränkung auf 16 bit legal. (Da "logisch'). 


Elemente in Ausdrücken: 
Dezimalzahlen 
Sedez.zahlen 


2: 24,108637 (Immer als 'AE') 
2. 
Nonregsymbol 2: 
2. Kö 


Br 

B. $SO,$SAFFE,S$S2CDE3 '' 

B. X,AB23, (Max. 6 Zeichen) 

nnen 'RE' oder 'AE' sein. 

Loc. counter $ Ohne folgende Ziffern, ist 
'RE' im RORG-mode sonst 'AE'. 


Dyadische Operatoren: 
+ Addition. ABS+ABS=ABS, ABS+REL=REL, 
REL+ABS=REL, REL+REL nicht erlaubt! 
= Subtraktion, REL-REL=ABS, REL-ABS=REL, 
ABS-ABS=ABS, ABS-REL nicht erlaubt! 


« Multiply, nur bei zwei 'AE' erlaubt. Es 
wird in signed 32 bit arithm. gerechnet. 
/ Divide. Wie bei Multiply, nur 'AE' etc. 


Die Prezedenz der Operatoren ist wie üblich, 
d.h. *,/ geht vor +,-. Durch Klammerung wird 
die Prezedenz übersteuert. 


TABELLENKAPAZITÄT 


Unser Assembler benötigt für jedes Symbol 14 Bytes Listenplatz. 
Von dem angebotenen Workspace (z.B. SZ=xx unter RTOS-UH) gehen 
zusätzlich noch einmal ca. 600 Bytes für Pufferung etc. verloren. 
So kann mit z.B. SZ=6000 ein Programm bis über 1700 Symbolen 
übersetzt werden. 
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1986 


ASSEMBLER-Fehler 


EEH DER -DILIR GEN OS BE: 


Fehlermeldungen werden zeilenweise eingebettet und durch einen 
Stern unter dem inkriminierten Zeichen markiert, an der Stelle,an 
der der Assembler die Abweichung erkennen konnte. 


Im Fehlerfalle wird wann immer möglich ein 3*NOP-Code eingesetzt 
um ggf. nach dem Laden korrigieren zu können. Dies ist allerdings 
bei bestimmten Fehlern, die erst im Pass 2 erkannt werden können, 
nicht möglich. 


Ein vorzeitiger Abbruch erfolgt bei der TAB.-OVERFL. - kondi- 
tion. (s.u.) 

'DEF-ERROR' Falsch definiert. z.b. Vorwärtsbezug bei EQU 

ö oder zu spät als Register, d.h. nachdem das 


Symbol bereits benutzt wurde. 


'DOUBLE-DEF' Das Symbol wurde mehrmals definiert. 


"FORW.REF.' Vorwärtsbezug hier nicht erlaubt. 
"LENGTH' Operation und Länge harmonieren nicht. 
"LIMIT" Grenzwert des Ausdrucks überschritten, oder 


z.B. durch Null dividiert. 
'MODE' Adressierungsart ist hier nicht erlaubt. 


'P1/2-MATCH' Zusammenbruch. Label im Pass 2 entdeckt, das 
im Pass 1 noch nicht vorkanm. 


"R/A-ERROR' Ausdruck 'RE' statt 'AE' oder umgekehrt. Der 
falsche Typ wird jedoch eingesetzt, Programm 
i.a. unbrauchbar. 

"SYNTAX" Keine Produktionsregel gefunden. (3*NOP). 

"UNDEF' Das Symbol wurde nicht definiert. 

***TAB-OVERFL Der Platz reicht nicht aus. Mit SZ beim 
Aufruf des Assemblers Listenplatz vergrös- 
sern (bis SZ=7FFE möglich!). 

INP.FAIL Abbruch des Laufes, weil Input-file nicht 


lesbar/vorhanden ist, oder die End-Of-File 
Bedingung vor dem END eingetreten ist. 
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Einbettung von Assemblerprogrammen RTOS-Headers 


RTOS-UH eignet sich zusammen mit der Vielzahl von Systemtraps 
auch sehr gut für die maschinennahe Codierung. Dabei sind 
allerdings einige Konventionen zu beachten, da sonst schon evtl. 
unmittelbar nach dem Laden ein 'Absturz' des gesamten Systemes 
verursacht werden kann. Der Lader benötigt nämlich für Module 


einen sog. "Modulkopf£' und für Tasks einen sog. '"Taskkopf' im 
Vorspann des eigentlichen Programmes. Der 'Taskkopf' ist dabei 
ein verlängerter 'Modulkopf'. Besteht ein Programmblock aus 


mehreren Modulen/Tasks, so müssen diese vom Programmierer mitein- 
ander verzeigert werden. Der 'Nullzeiger' zeigt an, daß es keinen 
Vordermann oder Hintermann zu diesem M/T-kopf gibt. 


MODULKOPF: DC.L ) or: address of next M/T-head 
m DC.L 0 or: address of last M/T-head 
DC 50010 Typeindicator: 'Module' 
DC.B ERERT ö 6 bytes name-link (s.u.) 
-) von hier ab freie Kodierung des Modules. 
TASKKOPF: DC.L 0 or: address of next M/T-head 
Freu DC.L {0} or: address of last M/T-head 
DC tasktype (ist unten erläutert) 
DC.B N erarseiele ! 6 bytes name-link (s.u.) 
DC PRIO Defaulttaskpriorität 1...255 
DC.L Workspacelänge d. Task: mind. 120 !! 
DC.L 0,0 Zeiger f. systemeigene Zwecke 
DC PRIO ist später variable Laufprio 
DC.L Startadresse Adr. 1. Anweisung Task 
DC.L 0,0,0,0,0,0,0,0,0,0 (10x4) 
DC.L 0,60.0,0,9,0 total 64 bytes zero 
rn von hier an freie Kodierung der Task. 


'namelink': Entweder unmittelbar (6 ASCII-Char.) der Task- bzw. 
Modulname oder in den ersten 4 Byte steht die auf 
die Adr. von 'namelink' relativierte adresse des 
(beliebig langen) Textes (mit $FF beendet), der den 
Modul-/taskbezeichner darstellt. Im 2. Fall sind 
die Bytes 5 und 6 ohne Bedeutung, müssen aber ange- 
legt werden. 


"tasktype': sp001 Normale Task, ohne 'RESIDENT'-Attribut. 


$0081 = "Residente' Task, die ihren TWSP behält. 
50041 = Autostarttask, läuft nach Abort sofort. 
spooc1 = Kombination: "Residente' Autostarttask. 
HINWEIS: Der Taskkopf hat sich nach Aufnahme der 68020-Fa- 


-------- milie wegen des Floatkoprozessors gegenüber früher 
geändert, es sind jetzt 24 Nullbytes mehr als frü- 

N! her (als Minimum) erforderlich. Unbedingt also alte 
Programme hier ändern. Die längeren Köpfe laufen na- 
türlich auch auf alten RTÖS-UH Versionen. 
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TABLE of TRAPS inside RTOS-UH DR A PS 


(TABLE) 


Umklammerte Traps sind nicht im Nukleus angesiedelt 
irgendeiner anderen Scheibe angesiedelt - sofern vorhanden. 


ACHTUNG: Traps niemals auf Interrupt-Ebene aufrufen! 


$4E40 ACTQ Activate quick. Task-ID-pointer is in Al. 
$4E41 TERMI Exit = Terminate internal = self-termination 


$4E42 CON Continue task given by name in $66(A4) 

$S4E43 ODPC Start a dispatching cycle 

S4E44 4 ---- Reserved 

$A4E45 SCAN System-scanner (for mounting of RTOS-UH + loader) 
$4E46 REQU Request semaphore. Adr. of sema is in Al 


$4E47 RELEA Release semaphore. Adr. of sema is in Al 
$4E48 FETCE Fetch a communication-element, D1.L=s 


Alsptr 


sondern in 


u 


$4E49 RELCE Release a communication-element. Pointer is in Al* 


$S4E4A KXIO Xfer a communication-element to in/output-handler* 
$4E4B PENTR Procedure entering. (Workspace alloc. a a 
$4E4C RETN Return from procedure. (complement to PENTR) * 
$4E4D TOQ Take of queue. (Inside i/o-handler-tasks) E 
$4E4E (TOV) Hyperprocessor 'on' = to virtual code switching * 
S4E4F OFF Dispatching and interrupts 'off' + supervisormode* 


SA0O00 TERME Terminate (external) task by name in $66(A4) 
$SA002 ERROR Send error-message to corresponding userterminal 


SA004 WSFS Workspace forward search. (Al is loaded) 

SA0O06 ITBO Identify task by name in $66(A4). (Al is loaded) 
SA008 WSFA Workspace fixed address request. 

SAOOA TIOWA I/O-wait by communication-element in Al. 

SABOC WSBS Workspace backward search. (Al is loaded) 

SAOOE GAPST Generate and prepare a subtask (son-process) 
$SA018® TERV Terminate (self) and vanish. (son-process exit) 
SA012 DVDSC Device-(facility)-tester. (LDN expected in D1) 
SAO14 ACT Activate task by name in $66(A4) 

SA016 TIAC Time-scheduled activation of task „by name $66(A4) 


SA018 TICON Time-scheduled continuation 


$A0O1A ACTEV Interrupt-scheduled activ. of task by name 
SADO1IC CONEV Interrupt-scheduled cont. of task by name 


vi 


Be a ae a a a a a a a a a a a a a a et 


SABLE QSA Quote-scanner with answer. (Lex.text by adr. A2) 
$A0208 RUBBL Rubber for blanks. (Text-pointer is in A2) 

$A022 PREV Prevent task by name in $66(A4) 

$SA024 TIACQ Time-scheduled activ. of task (quick) by TID = Al 
$A026 TRIGEV Trigger = simulation of an interrupt 

$SA028 SUSP Self suspending of executing task. 

SAO2A RWSP Release workspace by pointer in Al. 

$A0O2C TIRE Time-scheduled RESUME of a task 

SAO2E (PIT) Process-data input. (implement. dependent) 

$A030 (POT) Process-data output. Er 

$A0O32 ENAB Enable selected process-interrupts. 

$A034 DISAB Disable selected process-interrupts. 

SA036 LITRA Line-tracer in real environment. 

$sA038 LITRAV Line-tracer virtual (inside hyperproc) 

SAO3A CSA Character scan alternatively. (text ptr in A2) 
sa03Cc IMBS Identify module by string. (String ptr in A2) 
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TABLE of TRAPS inside RTOS-UH (cont.) TRAP S (TABLE) 


SAO3E RCLK Read system-clock. Result is in D1.L 

$A0O48 ITSIT Index-tester for 1-dim arrays. 

$A042 ITS2T Index-tester for 2-dim arrays. 

SA0O44 ITS3T Index-tester for 3-dim arrays. 

SAO46 MD2B60 Multiply D2.L by 60 (long + fast!) 

$SA0O48 ITBS Identify task by string. (string-ptr in A2) 
SAO4A ---- Reserved 

SAO4C INTDI Integer (long) into Di by text-pointer in A2 
SAD4E TICONQ Time-scheduled cont. of task (quick) by TID=Al 
SA050 CONQ Continue task quick by TID=Al. 

SA0O52 DELTST (Right) Delimiter-test of text. (ptr is A2 
SA0O54 PREVQ Prevent task quick by TID=Al. 

SA0O56 EVACTQ Interrupt-scheduled task-activ. quick by TID=A 
$SA0O58 TERMEQ Terminate task quick by TID=A 

SAOSA EVCONQ Interrupt-scheduled task-cont. quick by TID=A 
SADHE, —es-= RESERVED. 

SAO5SE STBCLK Set Battery Hardware-Clock 

$A060 ITSITL Index-tester for 1-dim arrays with long index. 
SA0O62 ITS2TL Index-tester for 2-dim arrays with long 
$A064 ITS3TL Index-tester for 3-dim arrays with long index 
SAO66 (DATASC) Date to ASCII conversion 


RER HR U HH EI 


SAOTE; ----- RESERVED. ” 


« 


Die folgenden Line-A Traps können in besonderen Anwenderimplemen- 
tierungen frei belegt werden. Die Transfer-adressen aller Line-A- 
traps beginnen auf $400 (für $A000), $404 (für $A002) .. usw. in 
4-byte-Schritten. Also: Rechtes Trap-byte mal 2 plus $400. Der 
Anschluß kann dann etwa über Scheibe 14 hergestellt werden. Dabei 
ist zu beachten, daß von $800 nach unten der System-stack den 
Links entgegenwächst und diese ggf. zerstört werden. 


SA0O80 ??? User-applicable for special implementations * 
.... „m... 1:38) [3 
SAOFE 2??? Last allowed user-trap. * 
Desweiteren steht noch eine Subroutine zur Verfügung (schneller 
Anschluß): 

CD7TAS Convert D7 to ASCII-String x 
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Activate Task by name. ana = a. 1 4 


Eingaberegister: D1.W Priorität der Aktivierung. 
$66(A4) 6 ASCII-bytes des Tasknamens oder 
4 byte Adresse des Namensstring, 
der mit $FF endet. 


Veränderte Register: D7,D1 Bei Fehler auch D5,D6. 


Funktionsbeschreibung: Die angegebene Task wird in der Speicher- 
Fe m ent Eh had ke verwaltung gesucht. Dabei wird die User- 
nummer der Tasks nicht berücksichtigt. Falls eine so bezeichnete 
Task nicht gefunden wird, so erfolgt Fehlermeldung und eine Ope- 
ration unterbleibt. 


Falls D1I.W EQ 0, wird D1 aus der Taskdefaultprio geladen. Ist D1 
negativ, so erfolgt eine Fehlermeldung und die Aktivierung unter- 
bleibt. Danach wird geprüft, ob die Task bereits im Dispatcher- 
ring steht. Ist dies nicht der Fall, so wird sie gemäß der Prio- 
rität aus D1 eingelinkt und der Trap endet mit Dispatcherstart. 


War die Task dagegen bereits im Dispatcherring, so wird die Blok- 
kierbedingung "waiting for activation' untersucht und gelöscht. 


a) Blockierbedingung war gesetzt. 
Es wird geprüft, ob die Task prioritätsgerecht eingelinkt 
ist, falls nicht, so wird sie entsprechend 'umgelinkt'. 
Der Trap endet mit einem Dispatcherstart. 


b) Blockierbedingung war nicht gesetzt. 
Die Aktivierung wird mit ihrer Priorität in den Puffer der 
Task geschrieben, falls dort noch Platz ist. (Max. 3) Wenn 


kein Platz im Puffer ist, so erfolgt Fehlermeldung und die 
Operation unterbleibt. Der Trap endet ohne Dispatcherstart. 


Fehlermeldungen: »...WRONG PRIO. (D1.W negativ) 
»...OVERFLOW (ACT). (Aktiv.puffer Überlauf) 
“...NOT LOADED (ACT) (Task wurde nicht gef.) 
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Activate by interrupt-schedule ACTEV = AOI1A 


Eingaberegister: D1.W Priorität 
OPNAME.T Textadresse oder Text 
OPFATI.T Prozeß-Interrupt-Ereignis 
Ausgaberegister: = 
Veränderte Register: D1,D7,Al,A2 


Funktionsbeschreibung: 


Eine Task, deren Name oder deren Adresse des Namens in 
OPNAME.T = $66(A4) steht, wird zur Aktivierung eingeplant. In Di 
wird die Priorität der Aktivierung übergeben. Ist Di gelöscht, 
wird die Default-Priorität eingetragen. Die aktuelle Priorität 
der laufenden Task bleibt unbeeinflußt. In OPFATI.T = $6C(A4) 
wird die Prozeß-Interrupt-Maske eingetragen, auf die die Task 
eingeplant werden soll. Bestehende Einplanungen werden gelöscht. 
Die Fehlermeldungen entsprechen denen beim Trap ACT beschriebe- 
nen. 


Beispiel: 


ACTEV OPD S$AO1A Trap-Definition 
LEA TSKNAM, AO Adresse des Tasknamens 
MOVE.L AO,OPNAME.T Eintrag der Adresse 
CLR OPNAME+4.T kein Text 
MOVE.L =$80000000,O0OPFATI.T Interrupt-Maske 
ACTEV auf Prozeßinterrupt einplanen 
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Activate Quick LETo = 4E409 


Eingaberegister: D1.W Priorität 
Al.L Adresse der Task (TID) 

Ausgaberegister: - 

Veränderte Register: D1,D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird aktiviert. In Dl1 wird 
die Priorität der Aktivierung übergeben. Ist D1 gleich Null, wird 
die Task mit ihrer Standardpriorität gestartet. Negative Priori- 
täten sind den Systemtasks vorbehalten und damit nicht erlaubt, 
sie führen zu einer Fehlermeldung. Läuft die Task schon, wird die 
Aktivierung gepuffert. Beim Überlaufen des Aktivierungspuffers 
erhält man ebenfalls eine Fehlermeldung. 


Beispiel: 
ACTQO OPD $4E40 Trap-Definition 
PRIOR: TID in Al 
MOVE =$20,D1 Prio=$20 
ACTQ Activate Task 
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Convert D7 to ASCII-String kein TRAP 


Eingaberegister: D7.W Hex.-Zahl 
Ausgaberegister: D6.L ASCII-Text der Hex.-Zahl 
Veränderte Register: - 


Funktionsbeschreibung: 


Hierbei handelt es sich nicht um einen Trap! Vielmehr kann diese 
Routine über die Adresse 


JSR CDITAS+JUMTBL 


angesprungen werden. Die Hex.-Zahl in D7.W wird in einen ASCII- 
String verwandelt, der in D6.L steht. Diese Routine kann genutzt 
werden, um sich die Umwandlung in ASCII-Strings z.B. bei der 
Ausgabe einer Adresse zu sparen. D7.W ist nach der Routine 
unverändert. 


Beispiel: 
JUMTBL EQU $8F4 Start der Jumptable 
CDTTAS EQU $6 Offset 


MOVE =$12A4,D7 Hex.-Zahl 
JSR CD7TAS+JUMTBL konvertieren 
were D6=$31324134 
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Continue coN 


= 4E42 
Eingaberegister: OPNAME.T Textadresse oder Text 
Ausgaberegister: = 
Veränderte Register: D7,A1,A2 
Funktionsbeschreibung: 
Eine Task, deren Name oder deren Adresse des Namens in 


OPNAME.T = $66(A4) steht, wird fortgesetzt. Ist die Task nicht 
geladen oder nicht suspendiert, wird eine entsprechende Fehler- 
meldung ausgegeben und der Aufrufer suspendiert. 


Beispiel: 


CON OPD $4E42 Trap-Definition 


LEA TSKNAM,A® Adresse des Tasknamens 
MOVE.L AO,OPNAME.T Eintrag der Adresse 
CLR OPNAME+4.T kein Text 

coN fortsetzen 
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Continue by interrupt-schedule CONEV = ABSLIE 


Eingaberegister: OPNAME.T Textadresse oder Text 
OPFATI.T Prozeß-Interrupt-Maske 

Ausgaberegister: - 

Veränderte Register: D7,Al,A2 


Funktionsbeschreibung: 


Eine Task, deren Name oder deren Adresse des Namens in 
OPNAME.T = $66(A4) steht, wird zur Fortsetzung eingeplant. Beste- 
hende Einplanungen werden gelöscht. In OPFATI.T = $6C(A4) muß die 
Prozeß-Interrupt-Maske eingetragen sein. 


Beispiel: 
CONEV OPD SADIC Trap-Definition 
LEA TSKNAM, AO Adresse des Tasknamens 
MOVE.L AO,OPNAME.T Eintrag der Adresse 
CLR OPNAME+4.T kein Text 
MOVE.L =$00040000,0PFATI.T Interrupt-Maske 
CONEV bei Interrupt fortsetzen 
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Continue quick coONOQ = A059 


Eingaberegister: Al.L Adresse der Task (TID) 
Ausgaberegister: 


Veränderte Register: D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird fortgesetzt. Ist die 
Task nicht suspendiert, wird eine entsprechende Fehlermeldung 
ausgegeben und der Aufrufer suspendiert. 


Beispiel: 
cOoNQ OPD S$AD509 Trap-Definition 
... TID in Al 
CONQ fortsetzen 
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Character-scan alternate csSıA = AO 3 A 


Eingabe-Register: A2.L Adresse des zu unters. Textes. 
Ausgabe-Register: A2.L Inkrementiert um 1 falls gefunden. 
Veränderte Register: D7. 


Funktionsbeschreibung: 


Die beiden hinter dem Trap im Speicher folgenden Bytes werden 
nacheinander mit dem Zeichen auf (A2) verglichen. Stimmt eines 
der beiden mit dem Eingabetext überein, so wird A2 um eins erhöht 
und das Statusregister auf 'EQ' gesetzt. Stimmt keines der beiden 
Bytes mit (A2) überein, so bleibt A2 unverändert und im Status- 
register wird die Kondition 'NE' gesetzt. 


In jedem Fall werden die beiden auf den Trap folgenden Bytes bei 
der Rückkehr übersprungen. 


Der Trap eignet sich für eine einfache Textanalyse und wird in- 
nerhalb des Bedieninterpreters eingesetzt. Er ist darum auch zur 
Realisierung neuer Bedienbefehle optimal geeignet. 


BEISPIEL: 
CSA OPD SAO3A Trap-definition 
Statascre A2 zeigt auf Eingabetext 
CSA Aufruf 
DC.B 'Aa' Prüfe, ob kleines oder großes A folgt. 
BEQ Irgendwo Wenn ja, springe mit erhöhtem A2 nach 
Irgenwo 
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Date to ASCII Conversion DATASC = A066 


Eingaberegister: DO.W Datum 
A2.L Zieladresse des Ausgabestrings 
Veränderte Register: DO.L zerstört 
A2.L zeigt auf erste freie Byte nach 
Ausgabestring 
SR 


Funktionsbeschreibung: 


Die in DO übergebene Datumsangabe (Anzahl der Tage seit 31-12- 
1984) wird in einen Ausgabestring (10 Zeichen, Aufbau: tt-mm- 
jJjJjj) verwandelt und auf die in A2 übergebene Adresse geschrie- 
ben. A2 wird um die Anzahl der Zeichen erhöht. 


Ist DO.W = 80000 (nicht gesetztes Datum), so wird die 
Zeichenfolge '---------- '" ausgegeben. 
Beispiel: DATASC OPD $A066 Trapdefinition 
menden DATE EQU S80A Datum (Systemzelle) 
MOVE DATE,DO Datum aus Systemzelle 
laden 
LEA BUFFER,A2 Zieladresse laden 
DATASC Datum auf (A2)+ 
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Delimiter-Test DEUTST = A052 


Eingaberegister: A2.L Adresse des zu unters. Textes 
Ausgaberegister: A2.L Inkrementiert bis Delimiter 
Veränderte Register: SR 


Funktionsbeschreibung: 


Es wird geprüft, ob der zu untersuchende Text als nächstes 
Zeichen einen Delimiter enthält. Als Delimiter gelten Semiko- 
lon($3B), Bindestrich($2D) und <Return>($0D). Blanks($20) und 
Kommata ($2C) werden überlesen. A2 wird solange erhöht, bis ein 
Zeichen gefunden wird, das kein Blank oder Komma ist. Ist dieses 
Zeichen ein Delimiter, so wird das Statusregister auf "EQ' 
gesetzt, andernfalls auf 'NE'. A2 zeigt auf dieses Zeichen. 


Dieser Trap eignet sich zur Analyse eines Textes, z.B. bei der 
Realisierung neuer Bedienbefehle. 


Beispiel: 


DELTST OPD $A052 
Beer A2 zeigt auf den Eingabetext 
DELTST Aufruf 
BNE NOLIM Springt, wenn kein Delimiter 
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Disable Prozeßinterrupt DISAB = A034 


Eingaberegister: DO.L Interruptmaske 
Ausgaberegister: er 
Veränderte Register: D0,D7 


Funktionsbeschreibung: 


Das Bitmuster in DO wird so mit der Enable-Mask verknüpft, das 
alle Prozeßinterrupts, deren Bits in DO auf '1' gesetzt sind, 
gesperrt werden. 


Beispiel: 


DISAB OPD $A034 Trap-Definition 


MOVE.L =$40000000,D0O Nummer des Interrupts 
DISAB Sperrung des Intrrupts 
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Device-Description-Link DVDS E = 012 


Eingaberegister: D1.B LDN 


Ausgaberegister: D1.L Diff. Adr. der Device-Parameter 
Veränderte Register: D7 


Funktionsbeschreibung: 


Der Trap liefert die Differenz der Adresse der Device-Parameter 
zu Al, wie sie beim DD- und SD-Kommando beschrieben werden. In 
D1.B muß die LDN der Datenstation übergeben werden. Es wird nicht 
geprüft, ob die entsprechende LDN überhaupt im System vorhanden 
ist. Bei Veränderungen der Device-Parameter muß also sicherge- 
stellt sein, daß die Adresse einer gültigen LDN verwendet wird, 
sonst kann es zu Systemabstürzen kommen, die sich u. U. erst 
später zeigen. 


Beispiel: 
DVDSC OPD S$A012 Trap-Definition 
MOVE.B =2,D1 LDN = 2 (Port 2) 
DVDSC Adresse von Device-Para 


MOVE.B =1,1(A1,D1.L) Zweites Byte von 
RT, A2: auf ESC-Sequenzen setzen 
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Enable Prozeßinterrupt ENAB = A032 


Eingaberegister: DO.L Interruptmaske 
Ausgaberegister: - 
Veränderte Register: D7 


Funktionsbeschreibung: 


Das Bitmuster in DO wird mit der Enable-Mask '"geodert'. 
werden alle Prozeßinterrupts, deren Bits in DO auf '1' 
sind, freigegeben. 


Beispiel: 


ENAB OPD S$A032 Trap-Definition 


MOVE.L =$80000000,D0O Nummer des Interrupts 
ENAB Freigabe des Intrrupts 
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Write Error-message ERROR = A 00 2 


Eingabe-Register: Parameter über PC, ggf. Al. sowie $66(A4) 
Ausgabe-Register: -- 


Veränderte Register: D7, PC (überspringt Wort nach dem Trap) 


Funktionsbeschreibung: 

Es wird eine wortweise zusammengesetzte Meldung auf das Terminal 
des verantwortlichen Nutzers geschrieben. Der Text wird durch 
den Inhalt der Zelle OPNAME.T = $66(A4) sowie durch das Wort 
hinter dem Trap bestimmt. Wenn dieses aus den Hexziffern 'abcd' 
besteht, so bestimmen b,c und d den eigentlichen Text, wäh- 
rend a eine Zusatzinformation festlegt. In OPNAME.T steht entwe- 
der ein 6 Byte langer Text oder eine 4 Byte Adresse gefolgt von 
einem Nullwort (Adressindikator). Textende durch $FF. Der Text 
muß konstant sein, da er nicht gepuffert wird! 


Bsp. ERROR OPD SA002 
ERROR Trap-aufruf 
DC $1234 a=1,b=2,c=3,d=4 


* Meldung wäre (s.u) >>task:filename WRONG PRIO (XIO) 


a: Enthält funktionelle Bits: 
1 Ergänze den durch Al ermittelbaren File-namen. 
2 Unterdrücke den Text in OPNAME. 
4 Z.zt. nicht belegt. 
& Suspendiere die aufrufende Task. 
b: Auswahl aus folgendem Vorrat: 
0: Leerstelle 1% .NOT 2: WRONG 
3: ZERO-DIV 4: CHK 5:  BLOCKS 
6: BREAKPOINT 7: DIRECTORY 8: DISC 
9: MEMORY A: MODULE B: MISSING 
C bis F: undef. 
Ci Auswahl aus folgendem Vorrat: 
0: leer 1: BUS-ERROR 2: LDN 
3: PRIO 4: LOADED 5: SUSPENDED 
6: ACTIVE 7: COMMAND 8: ADDRESS 
9: OP-CODE A: PRIVILEDGED B: OVERFLOW 
C: IN SYSTEM DE I/0 E+F: undef. 
d: Auswahl aus folgendem Vorrat 
0: leer 1: (ACT) 2: (TERMI) 
9% (CONTINUE) 4: (XIO) 5: {(TRAP) 
6: (FLOPPY) 7: LOADER-INPUT 8: REC-CHECKSUM 
9: LABEL A: (MODE) B TIMING 
C: INDEX D bis F: undefiniert. 


Die Ausgaben erledigt die Systemtask '#ERROR', falls vorhanden. 
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Interrupt-schedule activation quick EVACTOQ = A056 


Eingaberegister: D1.W Priorität 
Al.L Adresse der Task (TID) 
OPFATI.T Prozeß-Interrupt-Maske 
Ausgaberegister: = 
Veränderte Register: D1,D6,D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird zur Aktivierung 
eingeplant. Bestehende Einplanungen werden gelöscht. In Di wird 
die Priorität der Aktivierung übergeben. Ist Di gelöscht, wird 
die Default-Priorität eingesetzt. Die Priorität der aktuell 
laufenden Task wird nicht geändert. In OPFATI.T = $6C(A4) muß die 
Prozeß-Interrupt-Maske eingetragen sein. 


Beispiel: 
EVACTQ OPD S$SA056 Trap-Definition 
“os TID in Al 
MOVE.L =$80004000,0PFATI.T Interrupt-Maske 
EVACTQ auf Interrupt einplanen 
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Event continue quick EVCoNg = A OSSAR: 


Eingaberegister: Al.L Adresse der Task (TID) 
OPFATI.T Prozeß-Interrupt-Maske 

Ausgaberegister: = 

Veränderte Register: D6,D7,Al,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird zur Fortsetzung 
eingeplant. Bestehende Einplanungen werden gelöscht. In OPFATI.T 


= $6C(A4) muß die Prozeß-Interrupt-Maske eingetragen sein. 


Beispiel: 
EVCONQ OPD SAOS5A Trap-Definition 
ae TID in Al 
MOVE.L =$80001000,0PFATI.T Interrupt-Maske 


EVCONQ auf Interrupt einplanen 
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Fetch Communication-Element FETCE = 4E48 


Eingaberegister: D1.L 
Ausgaberegister: Al.L 
Veränderte Register: D1,D6,D7 


Funktionsbeschreibung: 


Der Inhalt von D1.L wird als Größe des eff 


tiv nutzbaren zu 


schaffenden Puffers im CE angesehen. Will den Puffer (IOBUF, 
siehe Beschreibung CE in Kapitel E-III) nicht benutzen, so ist 
durchaus ein Aufruf mit D1.L=0 sinnvoll. Im Register Al wird die 


Adresse des CEs zurückgegeben. Die Ausführung dieser Instruktion 
kann die exekutierende Task blockieren: 


Fall a) Die Task hat bereits ihr Kontingent an CE-Speicherraum 
verbraucht. Sie wird mit 'CWS?' blockiert und erst 
wieder lauffähig, wenn andere in ihrem Besitz befind- 
liche CEs zu freiem Speicher rückverwandelt sind. 


Fall b) RTOS-UH hat nicht mehr genügend Speicher zur Verfügung. 
Die Task wird in der Kondition 'PWS?' blockiert und 
erst wieder lauffähig, wenn irgendwo genügend Speicher 
freigeworden ist. 


Die Blockierung im Fall a) läßt sich vermeiden, wenn das least- 
significant Bit (ungerade Zahl) im Eingaberegister D1.L gesetzt 
ist. Dieses Bit wird nicht bei der Größenberechnung berücksich- 
tigt, sondern dient als Indikator für die Zulassung einer 
"kontingentüberschreitenden' Anforderung. 


Das CE wird vom FETCE mit folgenden Einträgen vorparametriert: 


PRIO Eigenpriorität der Task 
BUADR Adresse von IOBUF(A1) 
STATIO soo 

FNAME 8 Blanks 


Die restlichen Parameter müßen von der Task besetzt werden, bevor 
das CE über 'ZIO' benutzt werden kann. Natürlich dürfen auch die 
obigen Parameter (mit Ausnahme von STATIO) verändert werden. 
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Generate And Prepare SubTask GAPST = AOOE 


Eingabe-Register: D1.L Total Size of Required Task-header 
D6.W Priority of son-process 

OPNAME (A4)=($66.T) 6 Bytes of son's name. 

(kann später noch geändert werden). 


Ausgabe-Register: Al.L Pointer to generated Task-Header. 
CCR EQ if possible, NE if no space av. 
Veränderte Register: D1,D7 


Funktionsbeschreibung: 

Es wird ein Taskkopf der in DI angegebenen Größe (mind.$62!!) 
nach Suche von oben nach unten erzeugt. Konnte der benötigte 
Platz nicht gefunden werden, so retourniert der Trap mit 'NE' und 
es wird keine Aktion ausgeführt. Anderenfalls antwortet er mit 
'EQ' und läd Al (Zeiger auf den Taskkopf). Der Task-header wird 
wie folgt vorbesetzt: 


TYPE : User-no. des Aufrufers + TYPE Task 

PRIO R (Eingangswert D6, nicht mehr änderbar!) 

NAME : 6 bytes aus OPNAME.T des Aufrufers, änderbar. 

WSPLEN : Defaultiert zu $78 (minimaler Platz), *‘' 

rn No schedule, No buff. activation, no TWS. 

BLOCK : Waiting for activation (blocked, but linked) 
Der Anwender muß jetzt unbedingt den Start-PC, $20(Al), auf die 


zu exekutierende Code-Sequenz bringen! Er kann WSPLEN und NAME 
noch verändern (etwa bei Langnamen den langrelativen Zeiger ein- 
setzen). Irgendwelche Parameter kann man dem Sohn nur über die 
Zellen hinter $62(Al) einschreiben, wenn D1.L groß genug war. Der 
Sohn kann die Parameter dort später mit Hilfe seiner eigenen TID 
abholen und auswerten. 


Nachdem alle Parameter versorgt worden sind, kann man das Block- 
byte löschen und einen Dispatcherstart mit dem Trap DPC ($4E43) 
wagen. Der Sohn setzt sich nun in Gang und raubt - je nach PRIO - 
eventuell dem erzeugenden Prozeß den Prozessor. Irgenwann wird 
aber auch der erzeugende Prozeß hinter dem CLR BLOCK(Al) oder dem 
DPC-Trap fortgesetzt, er muß also entsprechend weitergeführt wer- 
den. 


Der Trap wird im Bedieninterpreter benutzt, z.B. COPY,LOAD,P,AS, 
ED,F77, um diesen zeitlich sowie speicherplatzmäßig zu entlasten. 


Er ist hervorragend für kompliziertere Shell-extensions geeignet, 
erfordert allerdings auch ein bißchen Denkarbeit. Wenn der Sohn- 
prozeß nach getaner Arbeit verschwinden soll, so muß man ihn nur 
auf den Trap TERV ($SA010) statt TERMI (S4E41) laufen lassen. 
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Identify Module By String L.MBS = AOB3C 


Eingaberegister: A2.L Adresse des Modulnamens 
Ausgaberegister: Al.L Adresse des Moduls 
SR 'EQ' wenn gefunden, sonst 'NE' 


Veränderte Register: D7,A2 


Funktionsbeschreibung: 


Der RAM-Bereich des Rechners wird n 
dessen Name mit dem von A2 adressic reinstimmt. Wird das 
Modul gefunden, antwortet der Trap : "EQ' und in Al steht die 
Adresse des Moduls. Wird das Modul nicht gefunden, lautet die 
Antwort 'NE'. Der Name muß mit $FF enden. 


em Modul durchsucht, 


Beispiel: 
IMBS OPD SADBIC Trap-Definition 
LEA TEXT,A2 Adr. von Modulnamen-> A2 
IMBS Suchen 
BEQ FOUND Springe, wenn gefunden 
TEXT DC.B 'Mist' Modulname 
DC.B S$SFF Ende des Namens 
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Integer To D1 INTDı = AOAC 


Eingaberegister: A2.L Adresse des Textes 
Ausgaberegister: D1.L 32 Bit Integer 
SR 'NE' wenn keine Ziffer, sonst 'EQ' 
A2 um Anzahl Ziffern inkr. 


Veränderte Register: D7 


Funktionsbeschreibung: 


Eine Zahl in ASCII-Darstellung wird in eine 32 Bit 
gewandelt. In A2 muß die Anfangsadresse der ASCII-Zahl 
Das Ergebnis wird in Di zurückgegeben. Die Umwandlung wird 
abgebrochen, wenn A2 auf ein ASCII-Zeichen zeigt, welches nicht 
zwischen ® ($30) und 9 ($39) zeigt. Liegt gleich das erste 
Zeichen außerhalb, so antwortet der Trap mit 'NE'. Ist das erste 
Zeichen eine Ziffer, ist die Antwort 'EQ'. Es wird nicht ge- 
prüft, ob ein Overflow auftritt! 


Beispiel: 
INTD1 OPD SADAC Trap-Definition 
RR A2 zeigt auf ASCII-String 
INTD1 Wandeln 
BNE MÜLL springe, wenn keine Zahl 
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I/O-Wait-Function IOWA = AOOA 


Eingaberegister: Al.L 
Ausgaberegister: == 
Veränderte Register: D7 


Funktionsbeschreibung: 

Es wird geprüft, ob das mit Al 
Warteschlange steht oder noch 
Betreuungstask ist. In diesem d die den 'IOWA' 
rende Task blockiert im Status '1/0? Ist das Element 
vollständig bearbeitet, so wirkı der Befehl wie ein 'No 
ton": 


ichnete Element noch 
laufender Bearbe 


Mit der Blockierung der Task wird im CE-Modewort nachträglich das 
"Wartebit' gesetzt, so daß die aufrufende Task sofort mit der 
Beendigung des I/O-Vorganges wieder lauffähig wird. 


Die Verwendung dieses Traps empfiehlt sich insbesondere, wenn 
Inputoperationen früh vor der Benutzung der Daten in Auftrag 
gegeben wurden und die Daten nun gebraucht werden. Auch nach 
einem Output ohne Wartebit muß diese Funktion aufgerufen werden, 
wenn das CE neu parametriert werden soll. 
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Identify Task By Opname TTBo0 = AO0OO6 


Eingaberegister: OPNAME.T Textadresse oder Text 
Ausgaberegister: Al.L Adresse der Task 
SR 'EQ' wenn gefunden, sonst 'NE' 


Veränderte Register: D7,A2 


Funktionsbeschreibung: 


:r Task durchsucht. Die 
Task wird durch den Inhalt von OPN 5 chrieben. In 
OPNAME.T steht entweder ein 6 Byte langer ex eine 4 Byte 
Adresse eines Textes, der mit $FF enden muß. Wird die Task 
gefunden, antwortet der Trap mit 'EQ' und in Al steht die Adresse 
der Task. Wird die Task nicht gefunden, lautet die Antwort 'NE'. 
Beispiel: 


ITBO OPD SA006 Trap-Definition 
MOVE.L =$41464645,0PNAME.T "AFFE' nach OPNAME 
MOVE =$2020,OPNAME+4.T Mit Blanks auf 6 Byte 
ITBO Suchen 
BEQ FOUND Springe, wenn gefunden 
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Identify Task By String ETBSsS = AOAB 


Eingaberegister: A2.L Adresse des Tasknamens 
Ausgaberegister: Al.L Adresse der Task 
SR '"EQ' wenn gefunden, sonst 'NE' 


Veränderte Register: D7,A2 


Funktionsbeschreibung: 


Der RAM-Bereich des Rechners wird nach einer Task durchsucht, 
deren Namen mit dem von A2 adressierten übereinstimmt. Wird 
Task gefunden, antwortet der Trap mit 'EQ' und in Al steht 
Adresse der Task. Wird die Task nicht gefunden, lautet 
Antwort 'NE'’. Der Name muß mit $FF enden. 


Beispiel: 
ITBS OPD $A048 Trap-Definition 
LEA TEXT,A2 Adr. des Tasknamen-> A2 
ITBS Suchen 
BEQ FOUND Springe, wenn gefunden 
TEXT DC.B 'Mist' Taskname 
DC.B SFF Ende des Namens 
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Index-test one-dimension Eee = AOAO 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.W linearer Index 

Ausgaberegister: = 

Veränderte Register: Al,D5.,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index eines eindimensionalen 
Feldes innerhalb der Feldgrenzen liegt. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL ssembler-UP, Kapitel E-IV) 
zeigen, hier also auf die Feldgren der ersten Dimension. Wenn 
der Index außerhalb der Feldgrenzen liegt, wird die Fehlermeldung 
'WRONG INDEX' ausgegeben. War die Zeilenüberwachung eingeschal- 
tet, wird auch die Zeilennummer mit ausgegeben. Der Pearl- 
Compiler generiert diesen Trap bei der +T-Option. 


Beispiel: 


TETSIT OPD SAD40 Trap-Definition 
Era Index in DO.W 
Br Al.L zeigt auf 1st Dimension 
ITSIT teste Index 
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Long Indexx-test one-dimension TAT SE II = A066 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.L linearer Index 

Ausgaberegister: Be 

Veränderte Register: A1l,D5,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index eines eindimensionalen 
Feldes innerhalb der Feldgrenzen liegt. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL-?} embler-UP, Kapitel E-IV) 
zeigen, hier also auf die Feldgrenze der ersten Dimension. Wenn 
der Index außerhalb der Feldgrenzen liegt, wird die Fehlermeldung 
"WRONG INDEX' ausgegeben. War dıe Zeilenüberwachung eingeschal- 
tet, wird auch die Zeilennummer mit ausgegeben. Der Pearl- 
Compiler generiert diesen Trap bei der +T-Option. 


Beispiel: 


ITSITL OPD $A060 Trap-Definition 
re Index in DO.L 
ae Al.L zeigt auf 1st Dimension 
ITS1TL teste Index 
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Index-test two-dimension LiWiS 2m, = A042 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.W linearer Index 

Ausgaberegister: = 

Veränderte Register: A1l,D5,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index eines zweidimensionalen 
Feldes innerhalb der Feldgrenzen liegt. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL-Assembler-UP, Kapitel E-IV) 
zeigen, in dem die Feldgrenzen in umgekehrter Reihenfolge liegen. 
Wenn der Index außerhalb der Feldgrenzen liegt, wird die Fehler- 
meldung "WRONG INDEX' ausgegeben. War die Zeilenüberwachung 
eingeschaltet, wird auch die Zeilennummer mit ausgegeben. Der 
Pearl-Compiler generiert diesen Trap bei der +T-Option. 


Beispiel: 
ITS2T OPD SA042 Trap-Definition 
arsye Index in DO.W 
Al.L zeigt auf Feldbeschreibungsb. 


ITS2T teste Index 
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Long Index-test two-dimension ITs2 To = A042 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.L linearer Index 

Ausgaberegister: = 

Veränderte Register: Al,D5,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index eines zweidimensionalen 
Feldes innerhalb der Feldgrenzen liegt. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL-Assembler-UP, Kapitel E-IV) 
zeigen, in dem die Feldgrenzen in umgekehrter Reihenfolge liegen. 
Wenn der Index außerhalb der Feldgrenzen lieg wird die Fehler- 
meldung 'WRONG INDEX' ausgegeben. War d Zeilenüberwachung 
eingeschaltet, wird auch die Zeilennummer mit ausgegeben. Der 
Pearl-Compiler generiert diesen Trap bei der +T-Option. 


Beispiel: 


ITS2TL OPD SA062 Trap-Definition 

ou. Index in DO.L 

ER Al.L zeigt auf Feldbeschreibungsb. 
ITS2TL teste Index 
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Index-test three-dimension u 3 AOAA 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.W linearer Index 

Ausgaberegister: = 

Veränderte Register: A1l,D5,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index eines dreidimensionalen 
Feldes innerhalb der Feldgrenzen liegt. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL-Assembler-UP, Kapitel E-IV) 
zeigen, in dem die Feldgrenzen in umgekehrter Reihenfolge liegen. 
Wenn der Index außerhalb der Feldgrenzen liegt, wird die Fehler- 
meldung 'WRONG INDEX' ausgegeben. War die Zeilenüberwachung 
eingeschaltet, wird auch die Zeilennummer mit ausgegeben. Der 
Pearl-Compiler generiert diesen Trap bei der +T-Option. 


Beispiel: 


ITS3T OPD S$A044 Trap-Definition 
Ser Index in DO.W 
Pe Al.L zeigt auf Feldbeschreibungsb. 
ITS3T teste Index 
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Long Index-test three-dimension 2 Di a: 1 ve Pe AO44 


Eingaberegister: Al.L Adresse Feldbeschreibungsblock 
DO.L linearer Index 

Ausgaberegister: - 

Veränderte Register: A1,D5,D6,D7 


Funktionsbeschreibung: 


Es wird geprüft, ob der lineare Index 
Feldes innerhalb der Feldgrenzen liest. Al muß auf den Feldbe- 
schreibungsblock (siehe auch PEARL-? embler-UP, Kapitel E-IV) 
zeigen, in dem die Feldgrenzen in umgekehrter Reihenfolge liegen. 
Wenn der Index außerhalb der Feldgrenzen liegt, wird die Fehler- 
meldung 'WRONG INDEX’ ausgegeben. War die Zeilenüberwachung 
eingeschaltet, wird auch die Zeilennummer mit ausgegeben. Der 
Pearl-Compiler generiert diesen Trap bei der +T-Option. 


eines dreidimensionalen 


Beispiel: 


ITS3TL OPD SA064 Trap-Definition 
BER Index in DO.L 


Peg Al.L zeigt auf Feldbeschreibungsb. 
ITS3TL teste Index 
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Line Tracer ULIERA = A036 


Eingaberegister: PC Zeilennummer steht nach PC 
BRKADR Break-Adresse 

Ausgaberegister: - 

Veränderte Register: Al,D1,D6,D7 


Funktionsbeschreibung: 


Wenn eine Task auf diesen Trap trift und die Zeilennummer in 
BRRADR = S3E(TID) mit der Zeilennummer nach diesem Trap über- 
einstimmt, wird sie suspendiert und es erfolgt die 
BREAKPOINT SUSPENDED unter Angabe der Zeilennummer. Die 
nummer nach dem Trap wird in jedem Fall übersprungen. Desweiteren 
wird jede überlaufene Zeilennummer in LINENO.T = $A2(A4) einge- 
tragen. Der Pearl-Compiler generiert diesen Trap, wenn die +N- 
Option eingeschaltet ist und er realen Code erzeugt. Der Eintrag 
der Zeilennummer nach BRKADR kann mit Hilfe des TRACE-Kommandos 
erfolgen. 


Beispiel: 
LITRA OPD S$AO36 Trap-Definition 
LITRA Line Trace 
DC s0001 Zeile Nummer 1 


Deere Fortsetzung des Codes 
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Line Tracer virtuell LITRAV = A038 


Eingaberegister: D1.W Zeilennummer 
Ausgaberegister: - 
Veränderte Register: Al,D1,D6,D7 


Funktionsbeschreibung: 


Wenn eine Task auf diesen Trap trift und 4 Zeilennummer in 
BRKADR = $3E(TID) mit der Zeilennummer in Di reinstimmt, wird 
sie suspendiert und es erfolgt die Meldung BREAKPOINT SUSPENDED 
unter Angabe der Zeilennummer. Jede überlaufene Zeilennummer wird 
in LINENO.T = $A2(A4) eingetragen. Der Pearl-Compiler generiert 
diesen Trap, wenn die +M-Option eingeschaltet ist und er virtuel- 
len Code erzeugt. Der Eintrag der Zeilennummer nach BRKADR kann 
mit Hilfe des TRACE-Kommandos erfolgen. 


Beispiel: 


LITRAV OPD $A038 Trap-Definition 


MOVEQ =1,D1 Zeilennummer nach D1 
LITRAV Line Trace virtuell 
Pe Fortsetzung des Codes 
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Multiply D2 By 60 MD2B69 = A046 


Eingaberegister: D2.L wird mit 60 multipliziert 
Ausgaberegister: D2.L 
Veränderte Register: D2,D7 


Funktionsbeschreibung: 


Der Inhalt von D2 wird mit 60 multipliziert. Das Ergebnis steht 
ebenfalls in D2. Dieser Trap kann bei der Berechnung der Uhrzeit 
in Stunden, Minuten, Sekunden verwendet werden. 


Beispiel: 
MD2B60 OPD S$A046 Trap-Definition 
erarare D2 Stunden 
MD2B60 aus Stunden->Minuten 
MOVE.L D2,MIN Speichern 
MD2B60 aus Min.->Sekunden 


MOVE.L D2,SEC Speichern 


E-I-34 Rev. RTOS-UH Dec. 1986 


Switch Dispatcher Off OFF = 4EAF 


Eingaberegister: -- 
Ausgaberegister: == 
Veränderte Register: SR 


Funktionsbeschreibung: 


Der Prozessor wird in den privilegierten Mod 
7 gebracht. Damit kommen keine Interrupts ur 
mehr zum Zuge. 


der Interruptebene 
spatchereingriffe 


Alcech tt uenige! 


Dieser Befehl ist mit größter Sorgfalt anzuwenden und darf nur 
für sehr kurze Zeit (max. ca. 100 ysec) zur Inhibierung der 
Interrupts führen. Sinn dieser Anweisung ist, bei bestimmten 
Problemen in E/A-Treibern Sequenzen von wenigen Befehlen unteil- 
bar zu machen. 


Der privilegierte Zustand wird durch den Befehl ANDI =SD8SFF,SR 
beendet. Unmittelbar danach muß ein Dispatcherstart forciert 
werden, z.B. durch Aufruf eines anderen Traps von RTOS-UH oder 
dem Befehl ODPC (Dispatcherstart=$4E43), sonst können Veränderun- 
gen von Taskzuständen 'verschlafen' werden. 
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Procedure entry. PENTR = 4E4AB 


Eingabe-Register: D1.L (Pure usable workspace-size) 

A5.L (Is saved in wsp prior to change) 
Ausgabe-Register: Al.L (address of wsp-section) 

A5.L (Pointer to first usable byte) 

SR (NE:kein Erfolg, EQ: Al geladen) 


Veränderte Register: D1,D7,A1l,A5 


Funktionsbeschreibung: 

Der von RTOS-UH verwaltete Speicherbereich wird von oben nach un- 
ten auf die erste freie Sektion durchsucht, in die eine Sekt 
der in D1 angegebenen Größe samt ihrem Verwaltungskopf hinein- 
paßt. D1 enthält also die effektiv nutzbare WSP-größe. Wird eine 
solche freie Sektion nicht gefunden, so antwortet der Trap mit 
'NE' anderenfalls mit 'EQ'. Das Register A5 wird in den Verwal- 
tungskopf gerettet und anschließend ebenso wie Al neu geladen. 
Register Al zeigt auf die erzeugte Sektion, A5 auf die Stelle in 
der Sektion, ab der der Anwender (Dl1-in) Datenbytes ablegen darf. 


Die Umkehroperation hierzu ist der Trap 'RETN' ($4E4C). 


Man beachte, daß die so erzeugte Speichersektion als 'PWS', d.h. 
"procedure-workspace' verbucht wird und mit der Terminierung der 
einstmals erzeugenden Task automatisch wieder zu freiem Speicher 
wird. Dafür sorgt das sog. 'T-link', eine Kette, die ihren Ur- 
sprung im 'task-workspace' hat und alle von der Task angeforder- 
ten 'CE' (communication element) und "PWS' miteinander zu einem 
Ring verbindet. will man die Sektion von der Task ablösen, wie 
es zum Beispiel der Editor mit neuen Blöcken macht, so muß die 
Sektion mit einer besonderen Prozedur aus dem 'T-link' heraus- 
genommen werden. Hierfür empfiehlt sich allerdings nicht dieser 
Trap sondern der Trap WSBS (AD0OC). 


Bsp: PENTR OPD $4E4B 
RETN OPD S4EA4C 
PRTNAD EQU S1A 
BSR SUBR Unterprogramm 
ES EEE HEEIEREHEESRHENE * 
SUBR MOVE.L =500,D1 500 Bytes Daten 
PENTR 
BNE MIST B: Kein Platz mehr 


MOVE.L (AT)+,PRTNAD(Al) Return-adr ableg. 


ne Nun können die Bytes O(A5) bis incl 
Blacsge 499(A5) benutzt werden 


Wsp zurück+Jump 
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Prevent by name PREV = A022 


Eingaberegister: OPNAME.T Textadresse oder Text 
Ausgaberegister: - 


Veränderte Register: D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Name oder deren Adresse des Namens in OPNAME.T = 
$66(A4) steht, wird ausgeplant. Auch im Aktiv ıspuffer aufge- 
laufene Aktivierungen werden gelöscht. Ist die Task nicht im 
System vorhanden, wird mit einer entsprechenden Fehlermeldung 
reagiert und der Aufrufer wird suspendiert. 


Beispiel: 
PREV OPD S$A0O22 Trap-Definition 
MOVE.L =$48414C4C,OPNAME.T 'HALL' nach OPNAME 
MOVE =$4F20,OPNAME+4.T 'O ' nach OPNAME 
PREV Task ausplanen 
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Prevent quick PREVOQ = A054 


Eingaberegister: Al.L Adresse der Task (TID) 
Ausgaberegister: - 
Veränderte Register: D7,Al 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al.L steht, wird ausgeplant. Auch im 
Aktivierungspuffer aufgelaufene Aktivierungen werden gelöscht. 


Beispiel: 
PREVQ OPD S$A054 Trap-Definition 
saleie TID in Al 
PREVQO Task ausplanen 
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Dispatcher Call QDPCc = 4E43 


Eingaberegister: = 
Ausgaberegister: = 
Veränderte Register: D7 


Funktionsbeschreibung: 


Es wird ein Dispatcherstart forciert. Dieser Trap sollte aufgeru- 
fen werden, wenn das Interruptsystem abg haltet war (siehe auch 
OFF). Damit wird verhindert, daß auf Veränderungen von Taskzu- 
ständen zu spät reagiert wird. Eine zweite Möglichkeit, den 
Dispatcher zu starten, ist auch gegeben. Dazu muß vom Dispatcher- 
Call-Flag (DPC EQU $800) eine Eins subtrahiert werden. Dann wird 
der Dispatcher bei jedem Trapaufruf oder einem anderen Interrupt 
gestartet, spätestens also beim nächsten Timer-Interrupt. 


Beispiel: 
QDPC OPD S$4E43 Trap-Definition 
DPC EQU $800 Dispatcher Call Flag 
ODPC Start Dispatcher 
oder: =. 


SUBQ =1,DPC auf 'Minus' setzen 
anderer Trap! Trap-Aktion+Dispatcher Start 


Rev. RTOS-UH Dec. 1986 E-I-39 


Quote-scan with answer oSA = AOdI1E 


Eingabe-Register: A2.L Adresse des zu untersuchenden Textes. 
Ausgabe-Register: A2.L Bei 'EQ' um Stringlänge inkrementiert 
SR 


Veränderte Register: D7. 


Funktionsbeschreibung: 

Durch das PC-relative Wort hinter dem Trap wird die Adresse eines 
Strings übergeben. Der ASCII-string muß mit dem Zeichen $FE be- 
endet sein. QSA prüft nun, ob der String mit der über (A2) er- 
reichbaren Sequenz übereinstimmt. Kleinbuchstaben des (A2)-string 
werden versuchsweise in Großbuchstaben verwandelt falls der Ver- 
gleich eines Zeichens nicht gelingt. Wenn bis zum $FE alle Zei- 
chen des String mit der (A2)-Sequenz übereinstimmen, wird A2 auf 
das nächste Zeichen der Sequenz vorgerückt und CCR auf "EQ' ge- 
setzt. Stimmt auch nur ein Zeichen (trotz Kleingroßkonvertierung) 
nicht überein, so bleibt A2 unverändert und CCR wird auf 'NE' ge- 
setzt. 


In jedem Fall werden die beiden auf den Trap folgenden Bytes bei 
der Rückkehr übersprungen. 


Der Trap eignet sich für eine einfache Textanalyse und wird in- 
nerhalb des Bedieninterpreters eingesetzt. Er ist darum auch zur 
Realisierung neuer Bedienbefehle optimal geeignet. 


BEISPIEL: 
QSA OPD SAOI1LE Trap-definition 
race A2 zeigt auf Eingabetext 
QSA Aufruf 
DC TEXT-$ Stringadresse relativiert. 


BEQ Irgendwo Springt bei erhöhtem A2 nach Irgendwo. 


TEXT DC.B 'STIMMTS',SFE 


Der BEQ wird ausgeführt wenn A2 vor dem TRAP z.B. auf einen Text 
der Form Stimmtsblabla oder sTIMMtSxx etc. zeigt. Nach dem 
QSA zeigt A2 dann z.B. auf 'blabla' bzw. 'xx'. 
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Read-Clock RCLK = AOI3E 


Eingaberegister: 


Ausgaberegister: DI-L Uhrzeit in Millisekunden 
Veränderte Register: D7 


Funktionsbeschreibung: 


Die aktuelle Uhrzeit wird gelesen und in Di zurückgegeben. 
enthält die Uhrzeit in Millisekunden. 


Beispiel: 


RCLK OPD SAO3E Trap-Definition 


RCLK Uhrzeit lesen 
MOVE.L D1,TEMP Uhrzeit speichern 


Rev. RTOS-UH Dec. 1986 


D1 
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Release CE RELCE = 4E49 


Eingaberegister: Al.L 
Ausgaberegister: == 
Veränderte Register: D5,D6,D7,Al 


Funktionsbeschreibung: 

An Hand der Verwaltungszeiger des in Al.L bezeichneten CEs wird 
zunächst geprüft, ob das CE zur Zeit in einen E/A-Vorgang 
verwickelt ist. Ist das nicht der Fall, wird es sofort in freien 
Speicher umgewandelt. 


Wenn dagegen das CE in einer Warteschlange steht und noch nicht 
in Bearbeitung einer Betreuungstask ist, so wird lediglich das 
Release-Bit gesetzt. 


Im Fall, daß das CE bereits in Bearbeitung durch eine Betreuungs- 
task ist, müssen zwei Fälle unterschieden werden: 


Fall a) Die exekutierende Task ist Besitzer des CEs. 
In diesem Fall wird nur das Release-Bit in STATIO 
gesetzt. 

Fall b) Die exekutierende Task ist nicht Besitzer des CEs. 


Es wird angenommen, daß die aufrufende Task eine 
Betreuungstask ist. Falls bei TIDO kein Besitzer mehr 
eingetragen ist, wird das CE sofort zu freiem Speicher- 
raum. Ist aber ein Besitzer eingetragen, so wird das 
Release-Bit in STATIO inspiziert: ist es gesetzt, wird 
das CE zu freiem Speicher, wenn nicht, werden nur die 
Verwaltungszeiger so verändert, daß erkennbar ist (z.B. 
beim IOWA), daß dieses CE nicht in eine I/O-Operation 
verwickelt ist. 


Die Benutzung dieses Befehls mit einer Besetzung von Al, die 
nicht auf ein existierendes CE zeigt, wird wahrscheinlich zu 
einem Systemzusammenbruch führen! 


E-I-42 Rev. RTOS-UH Dec. 1986 


Release semaphore. RELEA = 4E47 


Eingabe-Register: Al.L Adresse der (2 byte) Semavariablen. 
Ausgabe-Register: == 
Veränderte Register: D5,D6,D7 


Funktionsbeschreibung: 

Die angegebene Semavariable (per Adresse in Al) wird um 1 erhöht. 
Ist der neue Wert größer als Null, so erfolgt unmittelbar ohne 
weitere Aktion die Rückkehr aus dem Trap. Wird nach dem Erhöhen 
jedoch der Wert Null angenommen, so wird ihr I c auf 1 gesetzt. 
Alle durch 'SEMA' blockier Tasks werden un 2 ‚ ob sie auf 
diese Veränderung hin er lauffähig wer« & d keine Task 
gefunden, erfolgt gleichfails Rückkehr (mit dem W 1) ohne wei- 
tere Aktion. Wurde jedoch eine Task gefunden -i mehreren gilt 
das für die höchstprio erte- „ so wird di er die Semaphore 
zugeteilt und der Wert wieder auf -1 ('Task waiting’) gesetzt. 
Die Task wird nach der Zuteilung wieder lauffähig. 


Man beachte, daß der 'Außenwelt' gegenüber der zeitweilig ange- 
nommene Wert -1 gleichwertig zur Null (Requested) ist und nur 
interne Bedeutung hat (Requested and task waiting). 


Bsp: RELEA OPD $4E47 
LEA >SEMA4,Al Globale Semavariable 
RELEA 
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Request semaphore 


REQU = 4E46 


Eingabe-Register: Al.L Adresse der (2 byte) Semavariablen. 
Ausgabe-Register: == 
Veränderte Register: D7, im Task-WSP: OPFATI ($6cC im TWS). 


Funktionsbeschreibung: 

Die angegebene Semavariable (per Adresse in Al) wird um 1 ernie- 
drigt. Ist der neue Wert größer oder gleich Null, so erfolgt die 
Rückkehr ohne weitere Aktion. Ein negativer Wert jedoch wird auf 
-1 korrigiert und die anfordernde Task wird blockiert. Im Task- 
workspace der anfordernden Task (OPFATI=$S6C+TWS-adr) wird eine 
Notiz hinterlassen, die spä gg£. vom Trap RELEA aufgefunden 
werden kann. Wie bei allen Traps, so äst auch hier ein Dispat 

chereingriff innerhalb des Trap-body nicht möglich, so daß die 
notwendige Unteilbarkeit des Request automatisch durch die Struli- 
tur von RTOS-UH gesichert ist. Obwohl der Taskworkspace benutzt 
wird, braucht A4 nicht besetzt zu sein. Der Trap holt sich die 
entsprechende Adresse des TWS auf andere Weise. 


Man beachte, daß der 'Außenwelt' gegenüber der zeitweilig ange- 
nommene Wert -1 gleichwertig zur Null (Requested) ist und nur 
interne Bedeutung hat (Requested and task waiting). 


Bsp: REQU OPD S$S4E46 
LEA >SEMA4,A1l Globale Semavariable 
REQU Je nach vorherigem 


Zustand wird die 
Task evtl. blockiert 
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Rubber Blanks RUBBL = A029 


Eingaberegister: A2.L Adresse des zu unters. Textes 
Ausgaberegister: A2.L Um Anzahl Blanks inkrenm. 
Veränderte Register: D7 


Funktionsbeschreibung: 


In einem Text können Leerzeichen überlesen werden. A2 zeigt auf 
den Text und wird solange inkrementiert, wie Leerzeichen hinter- 
einander im Text stehen. Dieser Trap kann bei der Realisierung 
von neuen Bedienbefehlen eingesetzt werden. 


Beispiel: 
RUBBL OPD $AD20 Trap-Definition 
Bere A2 zeigt auf Text 
RUBBL Überliest Blanks 
Karatne Weitere Textanalyse 
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Return from procedure. RETN = 4EAcC 


Eingabe-Register: A5.L Zeiger auf zuletzt einger. workspace 
Ausgabe-Register: A5.L Wird aus dem freigebenen WSP geladen. 
Pc Wird aus dem Gi u [ei 


Veränderte Register: Al,D7 


Funktionsbeschreibung: 

Der früher mit PENTR eingerichtete PWSP (procedure-workspace) 
wird mit diesem Trap wieder freigegeben. Vorher wird allerdings 
das vom PENTR gerette Register A5 zurückgeladen. Der Trap kehrt 
nicht zum Aufrufer zurück, sondern holt sich die Rückkehradresse 
ebenfalls aus dem Verwaltungskop£f der mit A5(in) bezeichneten 
Speichersektion. Auf PRTNAD, erreichbar über -8(A5), muß also un- 
bedingt eine verwertbare Fortsetzungsadresse stehen. (Der Trap 
PENTR schreibt dort nichts hin!). 


Hinweis: 
Der Trap eignet sich zur Rückkehr aus PEARL-Prozeduren, wenn die- 
se mit dem Hyperprocbefehl 'ENTR' beginnen, den ENTR erledigt ne- 
ben der PWS-Erzeugung mit PENTR auch die Ablage der Rückkehr- 
adresse. 


Bsp. PENTR OPD $4E48 

RETN OPD S4EAC 

PRTNAD EQU S$1A $iA(Al) oder -8(A5) 
BSR SUBR Unterprogramm 

ko ————— = 

SUBR MOVE.L =500,D1 500 Bytes Daten 
PENTR 
BNE MIST B: Kein Platz mehr 
MOVE.L (A7)+,PRTNAD(Al) Return-adr ableg. 


ORT Nun können die Bytes O(A5) bis incl 
Frakofe 499(A5) benutzt werden 


RETN Wsp zurück+Jump 
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RUBBL = A920 


Eingaberegister: A2.L Adresse des zu unters. Textes 
Ausgaberegister: A2.L Um Anzahl Blanks inkrenm. 
Veränderte Register: D7 


Funktionsbeschreibung: 


In einem Text können Leerzeichen überlesen werden. A2 zeigt auf 
den Text und wird solange inkrementiert, wie Leerzeichen hinter- 
einander im Text stehen. Dieser Trap kann bei der Realisierung 
von neuen Bedienbefehlen eingesetzt werden. 


Beispiel: 
RUBBL OPD S$AD020 Trap-Definition 
Were A2 zeigt auf Text 
RUBBL Überliest Blanks 


ae Weitere Textanalyse 
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Release Wo 


Eingabe-Register: Al.L Adresse der zu löschenden Sektion. 
Ausgabe-Register: == 
Veränderte Register: D7. 


Funktionsbeschreibung: 

Die angegebene Speichersektion wird in freien Speicherraum zu- 
rückverwandelt. Anschließend darf Al nicht mehr als Zeiger ver- 
wendet werden. Falls irgendwo Tasks auf die Zuteilung von 'TWS' 
(Task-workspace) oder 'PWS' (Prozedur-workspace) gewartet hatten, 
erfolgt nunmehr möglicherweise ihre Freigabe - falls der Platzbe- 
darf nun befriedigt werden kann. 


Wichtiger Hinweis: 

Mit diesem Trap dürfen nur solche Sektionen gelöscht werden, die 
weder im 'S'- (Dispatcher, I/O-queue) noch im 'T'-link (Task- 
link) eingekettet sind, schwere später auftretende Abstürze kön- 
nen sonst resultieren. So müssen z.B. mit WSFA,WSBS und WSFS ein- 
gerichtete 'PWS'-Sektionen ausgelinkt werden, bevor dieser Trap 
eingesetzt werden darf. Das Auslinken ist bei WSFS etc. beschrie- 
ben. Mit PENTR eingerichtete Sektionen werden dagegen nicht mit 
RWSP rückgegeben, sondern durch RETN (ohne vorheriges Auslinken!) 
gelöscht. Ebenso werden mit FETCE erzeugte 'CE' (Communication- 
elemente) mit RELCE (auch ohne vorheriges Auslinken) getilgt. 


Der Trap RWSP wird intern in den Traps RELCE und RETN benutzt, 
nachdem diese das Auslinken, sowie ihre Nebenoperationen erledigt 
haben. Auch innerhalb des UNLOAD-Befehles sowie im Trap TERV 
wird er benutzt. Der Editor verwendet RWSP beim 'ERASE'. 


Bsp: OPD SAO2A 
OPD SAOOC 
MOVE.L ...,Dl Size 
WSBS anfordern 
Auslinken! e WSBS-Beschr. 
Nun als '"Dauerblock' 


ee benutzbar, evtl auch 
ae in anderen Tasks. 


RWSP Sektion zurückgeben. 
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Scanner Trap SCAN = 4E45 


Eingaberegister: D7.L Nummer der Scheibe 

D6.L ggf. bei Fortsetzung der Suche 
Ausgaberegister: Al.L Adresse der Scheibe 

SR 'EQ' wenn gefunden, sonst 'NE' 


Veränderte Register: D5,D6,D7 


Funktionsbeschreibung: 


Es wird der Scan-Bereich, der beim Nukleus eingetragen ist (siehe 
RTOS-UH Autolink/Seite E-VII), nach der Scheibe, deren Nummer in 
D7 übergeben wird, durchsucht. Wenn die Scheibe gefunden wird 
antwortet der Trap mit 'EQ' und man erhält in Al die Adresse nach 
der Signalmarke. Wird die Scheibe nicht gefunden, antwortet der 
Trap mit 'NE'. Wenn D7.L und D&.L nicht verändert werden, kann 
der Trap zur Fortsetzung der Suche wieder aufgerufen werden. 


Beispiel: 


SCAN OPD S4E45 Trap-Definition 
MOVEQ =1,D7 Scheibe 1 
LABEL SCAN suchen 
BNE.S READY B: nichts zu finden 
... Action ... 
sa aber D6,D7 bleiben unverändert 
BRA.S LABEL Fortsetzung der Suche 
READY Sa hier geht's weiter... 
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Set Battery Clock STBELK = AOS5SE 


Eingaberegister: - 
Ausgaberegister: D2.L Zeit in Millisekunden 
Veränderte Register: D7 


Funktionsbeschreibung: 


Dieser Trap wird beim CLOCKSET-Kommando exekutiert. Normalerweise 
wird damit keine Aktion ausgeführt. Er kann aber vom Nutzer 
angeschlossen werden, um eine eventuell vorhandene Hardware-Uhr 
zu stellen. In D2.L erhält man die Zeit, die beim CLOCKSET- 
Kommando eingegeben wurde, in Millisekunden übergeben. Der An- 
schluß des Trap kann von C in der Startphase über die 
entsprechende Scheibe 14 gen t werden. 
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Suspend actual running Task Si'U Si: EB AO 238 


Eingaberegister: - 
Ausgaberegister: = 
Veränderte Register: D7,Al 


Funktionsbeschreibung: 


Die gerade laufende Task wird suspendiert. Alle Register werden 
gerettet. Die Task behält ihren Workspace und kann zu einem 
späteren Zeitpunkt fortgesetzt werden. 


Beispiel: 
SUSP OPD $A028 Trap-Definition 
Task läuft 


SUSP Task suspendiert sich 
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Terminate External TERME = AOOO 


Eingaberegister: OPNAME.T Textadresse oder Text 
Ausgaberegister: = 
Veränderte Register: D1,D5,D6,D7,A1,A2 


Funktionsbeschreibung: 


Die Task, deren Name oder deren Zeiger auf den Namen in OPNAME.T 
= $66(A4) steht wird sofort beendet. Die Registerinhalte werden 
nicht gerettet, gehen also verloren. Bei einer nichtresidenten 
Task werden alle Speichersektionen (PWS, TWS, CE) an das 
Betriebssystem zurückgegeben. Residente Tasks behalten ihren 
Taskworkspace. Die Ausgabe-CEs verbleiben in der Schlange, wäh- 
rend Eingabe-CEs, die nicht schon von der E/A-Betreuungstask 
bearbeitet werden, aus der Schlange entfernt werden. 


Beispiel: 
TERME OPD SA000 Trap-Definition 
MOVE.L =$57454720,OPNAME.T "WEG ' 
MOVE =$2020,O0PNAME+4.T Auffüllen auf 6 Byte 
TERME Task WEG terminieren 
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Terminate quick TERMEOQ = A058 


Eingaberegister: Al.L Adresse der Task (TID) 
Ausgaberegister: == 
Veränderte Register: D1,D5,D6,D7,Al 


Funktionsbeschreibung: 


Die Task, deren Adresse in Al.L steht, wird sofort beendet. Die 
Registerinhalte werden nicht gerettet und gehen somit in jedem 
Fall verloren. Ist die Task vom nichtresidenten Typ, so werden 
alle Speichersektionen (PwS, TWS, CE) an RTOS-UH zurückgegeben. 
Residente Tasks behalten dagegen ihren Taskworkspace. Communica- 

tion-Elemente in der Ausgabeschlange verbleiben dort, aus der 
Eingabeschlange werden sie dagegen herausgelöst, es sei denn, daß 
sie bereits von der E/A-Betreuungstask bearbeitet werden. 


Eingeplante Tasks verbleiben auch nach dieser Anweisung in der 
Dispatcherverwaltung. War bereits eine neue Aktivierung gepuf- 
fert, so wird die Task der gepufferten Aktivierung entsprechend 
mit ggf. anderer Priorität erneut lauffähig gemacht. 


Beispiel: 
TERMEQ EQU SA058 Trap-Definition 
arsva TID nach Al.L 
TERMEQ Terminate Task 
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Terminate internal TERMI = 4E41 


Eingaberegister: == 
Ausgaberegister: En 
Veränderte Register: alle 


Funktionsbeschreibung: 


Eine Task, die diesen Befehl exekutiert, wird sofort beendet. Die 
Registerinhalte werden nicht gerettet und gehen somit in jedem 
Fall verloren. Ist die Task vom nichtresidenten Typ, so werden 
alle Speichersektionen (PWS, TWS, CE) an RTOS-UH zurückgegeben. 
Residente Tasks behalten dagegen ihren Taskworkspace. Communica- 

tion-Elemente in der Ausgabeschlange verbleiben dort, aus der 
Eingabeschlange werden sie dagegen herausgelöst, es sei denn, daß 
sie bereits von der E/A-Betreuungstask bearbeitet werden. 


Eingeplante Tasks verbleiben auch nach dieser Anweisung in der 
Dispatcherverwaltung. War bereits eine neue Aktivierung gepuf- 
fert, so wird die Task der gepufferten Aktivierung entsprechend 
mit ggf. anderer Priorität erneut lauffähig gemacht. 
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Terminate and Vanish TRRV = A010 


Eingaberegister: = 
Ausgaberegister: = 
Veränderte Register: alle 


Funktionsbeschreibung: 


Es werden die gleichen Aktionen ausgeführt wie beim TERMI 
($S4E41). Zusätzlich verschwindet die Task aus dem System. Sie 
kann nicht wieder aktiviert werden, außer sie war vorher einge- 


plant. Dann bleibt sie solange im System, bis die Einplanung 
erlischt. 


Dieser Trap kann dazu genutzt werden, um eine Subtask, die mit 
GAPST erzeugt wurde, mit Erleäigung ihrer Aufgabe aus dem Systen 
zu entfernen. 


Beispiel: 
TERV OPD SA010 Trap-Definition 
sjeiate Subtask 
TERV Ende der Subtask 
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Time-schedule activation NT Re A016 


Eingaberegister: DIE.W Priorität 

OPNAME.T Textadresse oder Text 
OPFATI.T Startzeit 

OPINTV.T Intervall 

OPLTI.T Endzeit 
Ausgaberegister: = 
Veränderte Register: D1,D6,D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Name oder deren Adresse des Namens in OPNAME.T = 
$66(A4) steht, wird zur Aktivierung eingeplant. In Dl wird die 
Priorität der Aktivierung übergeben. Ist D1 gelöscht, wird die 
Default-Priorität eingetragen. Die aktuelle Priorität der lau- 


fenden Task bleibt unbeeinflußt. Wenn die Task na einer 
bestimmten Zeitdauer aktiviert werden soll, muß in © D © 
$6C(A4) die Zeitdauer in Millisekunden mit gesetztem ob& n Bit 
eingetragen sein. Soll die Aktivierung zu einen timmten 


Zeitpunkt erfolgen, darf das oberste Bit nicht gesetzt sein. Ist 
eine wiederholte Einplanung gewünscht, muß in OPINTV.T = $36(A4) 
der Abstand der Einplanungen eingetragen werden. Ist der Wert 
negativ oder Null, findet keine zyklische Einplanung statt. 
Sollen die Einplanungen zu einem bestimmten Zeitpunkt oder nach 
einer Zeitdauer (oberstes Bit gesetzt) beendet werden, muß 
OPLTI.T = $3A(A4) mit dem entsprechenden Wert geladen werden. 
Bestehende Einplanungen werden gelöscht. Die Fehlermeldungen 
entsprechen denen beim Trap ACT beschriebenen. 


Beispiel: 
TIAC OPD SA0D16 Trap-Definition 
... TID’ in Al 
MOVE.L =$80002710,O0OPFATI.T after 10 sec 
MOVE.L =1000,0PINTV.T all 1 sec 
CLR.L OPLTI.L ohne Ende 


TIAC nach 10 Sec aktivieren 


Rev. RTOS-UH Dec. 1986 Earsss 


Time-schedule activation quick TERCQO = A024 


Eingaberegister: D1.W Priorität 
Al.L Adresse der Task (TID) 
OPFATI.T Startzeit 
OPINTV.T Intervall 
OPLTI.T Endzeit 
Ausgaberegister: = 
Veränderte Register: D1,D6,D7,A1,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird zur Aktivierung 
eingeplant. In Di wird die Priorität der Aktivierung übergeben. 
Ist D1 gelöscht, wird die Default-Priorität eingetragen. Die 
aktuelle Priorität der laufenden Task bleibt unbeeinflußt. Wenn 
die Task nach einer bestimmten Zeitdauer aktiviert werden soll, 
muß in OPFATI.T = $6C(A4) die Zeitdauer in Millisekunden mit 
gesetztem obersten Bit eingetragen sein. Soll die Aktivierung zu 
einem bestimmten Zeitpunkt erfolgen darf das oberste Bit nicht 
gesetzt sein. Ist eine wiederholt planung gewünscht, muß in 
OPINTV.T = $36(A4) der Abstand der Einplanungen eingetragen wer- 
den. Ist der Wert negativ oder Null, findet keine zyklische 
Einplanung statt. Sollen die Einplanungen zu einem bestimmten 
Zeitpunkt oder nach einer Zeitdauer (oberstes Bit gesetzt) 
beendet werden, muß OPLTI.T = $3A(A4) mit dem entsprechenden Wert 
geladen werden. Bestehende Einplanungen werden gelöscht. 


Beispiel: 
TIACQ OPD $Ad24 Trap-Definition 
OR TID in Al 
MOVE.L =$80002710,OPFATI.T after 10 sec 
MOVE.L =1000,0PINTV.T all 1 sec 
CLR.L OPLTI.L ohne Ende 
TIACQ nach 10 Sec aktivieren 
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Continue by time-schedule ERGOoN = AO18 


Eingaberegister: OPNAME.T Textadresse oder Text 
OPFATI.T Zeitdauer oder Zeitpunkt 

Ausgaberegister: - 

Veränderte Register: D6,D7,Al,A2 


Funktionsbeschreibung: 


Eine Task, deren Name oder deren Adresse des Namens in 
OPNAME.T = $66(A4) steht, wird zur Fortsetzung eingeplant. Beste- 
hende Einplanungen werden gelöscht. Wenn die Task nach einer 
bestimmten Zeitdauer Eortgesetzt werden soll, muß in 
OPFATI.T = $6C(A4) die Zeitdauer in Millisekunden mit gesetzten 
obersten Bit eingetragen sein. Soll die Fortsetzung zu einem 
bestimmten Zeitpunkt erfolgen, darf das oberste Bit nicht gesetzt 
sein. 


Beispiel: 
TICON OPD S$SA018 Trap-Definition 
LEA TSKNAM,AO® Adresse des Tasknamens 
MOVE.L AO,OPNAME.T Eintrag der Adresse 
CLR OPNAME+4.T kein Text 
MOVE.L =$800003E8,OPFATI.T 1 sec Resume 
TICON nach 1 Sec fortsetzen 
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Time continue quick DE EO0NG = AOAE 


Eingaberegister: Al.L Adresse der Task (TID) 
OPFATI.T Zeitdauer oder Zeitpunkt 

Ausgaberegister: - 

Veränderte Register: D6,D7,A1l,A2 


Funktionsbeschreibung: 


Eine Task, deren Adresse in Al steht, wird zur Fortsetzung 
eingeplant. Bestehende Einplanungen werden gelöscht. Wenn die 
Task nach einer bestimmten Zeitdauer fortgesetzt werden soll, muß 
in OPFATI.T = $6C(A4) die Zeitdauer in Millisekunden mit gesetz- 
tem obersten Bit eingetragen sein. Soll die Fortsetzung zu einem 
bestimmten Zeitpunkt erfolgen, darf das oberste Bit nicht gesetzt 
sein. 


Beispiel: 
TICONQ OPD SAO4E Trap-Definition 
ee TID in Al 
MOVE.L =$800003E8,OPFATI.T 1 sec Resume 
TICONQ nach 1 Sec fortsetzen 
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Time Resume TIRE = AO 2C 


Eingaberegister: OPFATI.T Zeitdauer oder Zeitpunkt 
Ausgaberegister: - 
Veränderte Register: D6,D7,Al 


Funktionsbeschreibung: 


Die Task, die diesen Trap absetzt, wird suspendiert und nach der 
angegebenen Zeit oder zu einem bestimmten Zeitpunkt fortgesetzt. 
Bestehende Einplanungen we »n gelöscht. Wenn die T x: nach einer 
bestimmten Zeitdauer fortgesetzt werden soll, muß OPFATI.T = 
S6C(A4) die Zeitdauer in Millisekunden mit gesetztem obersten Bit 
stehen. Andernfalls wird die eingetragene Zeit als Zeitpunkt 
interpretiert und zu diesem wird die Task zur Fortsetzung 
eingeplant. 


Beispiel: 


TIRE OPD SADO2C Trap Definition 


MOVE.L =$80000008,0PFATI.T 8 msec Resume 
TIRE nach 8 msec fortsetzen 
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Take of Queue 7609 4E4AD 


Eingaberegister: D1.W 
Ausgaberegister: Al.L,PC 
Veränderte Register: Al,D7 


Funktionsbeschreibung: 


In D1.W wird die Nummer einer Betreuungstask erwartet. Ist die 
Warteschlange leer, so wird die Exekution mit dem nächsten 
folgenden Befehl fortgesetzt. Ist die Warteschlange nicht leer, 
so wird Al mit dem Zeiger auf das vorne - am Kopf der Schlange - 
stehende Communication-Element geladen. Vor der Rückkehr wird 
jetzt der PC um 2 erhöht, so daß der nächstfolgende Einwortbefehl 
übersprungen wird. Das Element ist danach ausgekettet und sein 
Vorwärtszeiger 'S' negativ, um die in 'RELCE' und 'IOWA' enthal- 
tenen Abfragen korrekt vorzubereiten. 


Es wird nicht geprüft, ob D1 im implementierten Bereich liegt! 
Bei der typischen Anwendung dieser Funktion in einer LI/O- 
Betreuungstask wird D1 ohnehin "'immidiate' mit einer Konstanten 
geladen. Die Systemreaktion bei einer falschen Parametrierung von 
D1 ist nicht vorherzusagen, kann u.U. aber zur Katastrophe 
führen. 


Beispiel: 


ToQ EQU $4E40 
TERMI EQU $4E41 
MOVE =0,D1 LDN Al 
TOoQ CE aus Schlange holen 
TERMI Wenn Schlange leer TERMI 
za Verarbeitung des CEs 
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Trigger Event TRIGEV = A026 


Eingaberegister: D1.L Interrupt-Maske 
Ausgaberegister: = 
Veränderte Register: D7 


Funktionsbeschreibung: 


Alle Interrupts, die durch ein gesetztes Bit in D1.L beschrieben 
werden und die 'enabled' sind, werden gefeuert. Damit werden alle 
Tasks, die auf die entsprechenden Interrupts zur Aktivierung oder 
Fortsetzung eingeplant sind, freigegeben. Im System wird nicht 
unterschieden, ob ein Interrupt von der Hardware oder dem TRIGEV- 
Trap ausgelöst wurde. Somit ist es also möglich, Hardware- 
Interrupts zu simulieren und ihre Wirkung zu testen. 


Beispiel: 


TRIGEV OPD $A026 Trap-Definition 


MOVEQ =1,D1 EV 1 
TRIGEV trigger EV 1 
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Workspace backward search WSBS = AOOC 


Eingabe-Register: D1.L (Total size of requ Workspace) 
Ausgabe-Register: Al.L (Address of memory-section) 
SR (NE:kein Erfolg, EQ: Al geladen) 


Veränderte Register: D1,D7 


Funktionsbeschreibung: 

Der von RTOS-UH verwaltete Speicherbereich wird von oben nach un- 
ten nach dem ersten freien Stück abgesucht, in welches die Anfor- 
derung hineinpaßt. Der untere Rest davon bleibt freie Sektion. 
Al wird so geladen, daß es auf den oben bündig liegenden Bereich 
zeigt. Das Statusregister SR wird zur Rückantwort benutzt. Wenn 
nämlich kein Platz gefunden wurde, so an yrtet der Trap mit 'NE' 
anderenfalls (wenn Al geladen werden konnte) mit 'EQ'. 


Man beachte, daß die so erzeugte Speichersektion als 'PWS', d.h. 
"procedure-workspace' verbucht wird und mit der Terminierung der 
einstmals erzeugenden Task automatisch wieder zu freiem Speicher 
wird. Dafür sorgt das sog. 'T-link', eine Kette, die ihren Ur- 
sprung im 'task-workspace' hat und alle von der Task angeforder- 
ten 'CE' (communication element) und 'PWS' miteinander zu einem 
Ring verbindet. Will man die Sektion von der Task ablösen, wie 
es zum Beispiel der Editor mit neuen Blöcken macht, so muß die 
Sektion mit einer besonderen Prozedur aus dem 'T-link' heraus- 
genommen werden, die unten erläutert ist. 


WSBS OPD SAOOC 

MOVE.L =$1000,D1 Sektion 4 kB brutto 
WSBS 
BNE MIST B: kein Platz mehr 

unannann Nur wenn 'Dauerblock' gewünscht wird: ---------- 
OFF unteilbare Sequenz 
MOVEA.L BACKT(A1),A2 A2 zuf. Beisp. 
MOVE.L FORT (Al) ‚FORT (A2) linker Nachb. 


MOVEA.L FORT(A1),A2 
MOVE.L BACKT(A1l),BACKT(A2) rechter Nachb. 


MOVE =$0010,TYPE(Al) als 'MODULE’ ausg. 
MOVE.... text6-> NAME(Al) Modulname 6 Bytes 
ANDI =$D8FF,SR Sperre löschen 

DPC .. falls nicht bald anderer Trap kommt! 


Die symbolischen Displacements: BACKT=14, FORT=NAME=10,TYPE=8. 
Ein so erzeugter Dauerbereich kann nur über UNLOAD name wieder 
eliminiert werden. Ab Displacement 22 können Daten abgelegt wer- 
den. (Bei ausgelinkten Sektionen notfalls ab Displacement 16) 


Der Trap WSBS ist ein Bruder der Traps WSFA, WSFS und PENTR, die 
ähnliche Grundeigenschaften aufweisen. 


Gewisse Sorgfalt bei der Anwendung versteht sich von selbst! 
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Workspace fixed address request WSFA = AOO8 


Eingabe-Register: D1.L (Requested address, must be even) 
Al.L (Adr o£ first unused word, '' ) 

Ausgabe-Register: Al.L (Sect. address, Al out = D1l in) 
SR (NE:kein Erfolg, EQ: Al geladen) 


Veränderte Register: D1,D5,D6,D7 


Funktionsbeschreibung: 

Der Trap prüft, ob zwischen der Untergrenze in D1.L und der Ober- 
grenze+2 in Al.L freier Bereich liegt. Ist dies nicht der Fall, 
so antwortet der Trap mit 'NE', anderenfalls mit 'EQ'. Eventuelle 
Reste oberhalb und unterhalb werden - falls groß genug - zu frei- 
en Sektionen. Der Ausgangswert von Al ist identisch mit dem Ein- 
gangswert von D1 (falls 'EQ'). 


Man beachte, daß die so erzeugte Speichersektion als 
"procedure-workspace' verbucht wird und mit der Termi 
einstmals erzeugenden Task automatisch wieder zu frei 
wird. Dafür sorgt das sog. 'T-link', eine Kette, d 
sprung im 'task-workspace' hat und alle von der Task eforder- 
ten 'CE' (communication element) und 'PWS' miteinander zu einem 
Ring verbindet. will man die Sektion von der Task ablösen, wie 
es zum Beispiel der Editor mit neuen Blöcken macht, so muß die 
Sektion mit einer besonderen Prozedur aus dem 'T-link' heraus- 
genommen werden, die unten erläutert ist. 


"PWS', A,h: 
"ung der 


ihren Ur- 


WSFA OPD SA008 

MOVE.L =$8000,D1 Sektionadr=$3000 
LEA $9000.L,Al Bereich:$3000-$8FFF 
WSFA 
BNE MIST B:Bereich nicht frei 

BEReBEnTE Nur wenn 'Dauerblock' gewünscht wird: ---------- 
OFF unteilbare Sequenz 
MOVEA.L BACKT(A1l),A2 A2 zuf. Beisp. 
MOVE.L FORT (A1),FORT(A2) linker Nachb. 


MOVEA.L FORT(A1),A2 
MOVE.L BACKT(A1l),BACKT(A2) rechter Nachb. 


MOVE =$0010,TYPE(Al) als 'MODULE' ausg. 
MOVE.... text6-> NAME(Al) Modulname 6 Bytes 
ANDI =$D8FF,SR Sperre löschen 

DPC .. falls nicht bald anderer Trap kommt! 


Die symbolischen Displacements: BACKT=14, FORT=NAME=10,TYPE=83. 
Ein so erzeugter Dauerbereich kann nur über UNLOAD name wieder 
eliminiert werden. Ab Displacement 22 können Daten abgelegt wer- 
den. (Bei ausgelinkten Sektionen notfalls ab Displacement 16) 


Der Trap WSFA ist ein Bruder der Traps WSBS, WSFS und PENTR, die 
ähnliche Grundeigenschaften aufweisen. 


Nati.rli:h stört dieser Trap die automatische Speicherverwaltung. 
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Workspace forward search WSFS = aoo04 


Eingabe-Register: D1.L (Total size of requ Workspace) 
Ausgabe-Register: Al.L (Address of memory-section) 
SR (NE:kein Erfolg, EQ: Al geladen) 


Veränderte Register: D1,D7 


Funktionsbeschreibung: 

Der von RTOS-UH verwaltete Speicherbereich wird von unten nach o- 
ben nach dem ersten freien Stück abgesucht, in welches die Anfor- 
derung hineinpaßt. Dann wird Al als Zeiger auf diesen Abschnitt 
geladen. Der ggf. vorhandene (obere) Rest wird zur freien Sektion 
verwandelt. Das Statusregister wird zur Rückantwort benutzt. Wenn 
nämlich kein Platz gefunden wurde, so antwortet der Trap mit 'NE' 
anderenfalls (wenn Al geladen werden konnte) mit 'EQ'. 


Man beachte, daß die so erzeugte Speichersektion als 'PWS', d.h. 
'"procedure-workspace' verbucht wird und mit der Terminierung der 
einstmals erzeugenden Task automatisch wieder zu freiem Speicher 
wird. Dafür sorgt das sog. 'T-link', eine Kette, die ihren Ur- 
sprung im 'task-workspace' hat und alle von der Task angeforder- 
ten 'CE' (communication element) und 'PWS' miteinander zu einem 
Ring verbindet. will man die Sektion von der Task ablösen, wie 
es zum Beispiel der Editor mit neuen Blöcken macht, so muß die 
Sektion mit einer besonderen Prozedur aus dem 'T-link' heraus- 
genommen werden, die unten erläutert ist. 


MOVE.L =$1000,D1 Sektion 4 kB brutto 

WSFS 

BNE MIST B: kein Platz mehr 
Linn Nur wenn '"Dauerblock' gewünscht wird: ---------- 

OFF unteilbare Sequenz 

MOVEA.L BACKT(A1),A2 A2 zuf. Beisp. 

MOVE.L FORT (Al) ,FORT(A2) linker Nachb. 


MOVEA.L FORT(A1),A2 
MOVE.L BACKT(Al),BACKT(A2) rechter Nachb. 


MOVE =$0010,TYPE(Al) als 'MODULE' ausg. 
MOVE.... text6-> NAME(A1l) Modulname 6 Bytes 
ANDI =$D8FF,SR Sperre löschen 

DPC .. falls nicht bald anderer Trap kommt! 


Die symbolischen Displacements: BACKT=14, FORT=NAME=19,TYPE=83. 
Ein so erzeugter Dauerbereich kann nur über UNLOAD name wieder 
eliminiert werden. Ab Displacement 22 können Daten abgelegt wer- 
den. (Bei ausgelinkten Sektionen notfalls ab Displacement 16) 


Der Trap WSFS ist ein Bruder der Traps WSFA, WSBS und PENTR, die 
ähnliche Grundeigenschaften aufweisen. 


Gewisse Sorgfalt bei der Anwendung versteht sich von selbst! 
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Transfer CE for Input/Output zo = 4EA—M 


Eingaberegister: Al.b 
Ausgaberegister: == 
Veränderte Register: D1,D5,D6,D7 


Funktionsbeschreibung: 

Das durch Al festgelegte Communication-Element wird mit Hilfe der 
dort eingetragenen Priorität an dem ihm zustehenden Platz in der 
Warteschlange, deren Nummer ebenfalls im CE enthalten ist, 
eingekettet und die zugehörige Betreuungstask wird alarmiert. Die 
Aktivierung der Betreungstask für diese Warteschlange ('I/O- 
Task') erfolgt mit deren Eigenpriorität. 


Die Warteschlange kann nicht überlaufen. Die im CE gespeicherte 
Warteschlangennummer wird dahingehend geprüft, ob eine zugehörige 
Betreuungstask überhaupt vorhanden ist. Im Fehlerfalle wird die 
Meldung "WRONG LDN' abgesetzt und im CE der Wert von RECLEN auf 
Null gesetzt. 
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RTOS-UH Flo Winchester-Filesystem 

Es wird mit logischen Blöcken gearbeitet, deren jeweilige physi- 
kalische Position auf dem Speichermedium durch die "Untergliede- 
rungsdaten' errechenbar ist. Bis auf den Block No. ® sind die 
Blöcke von jeweils gleichem Aufbau. Block ® beginnt auf Track 00, 
Sektor 1 und Seite ®. 

Die leere Diskette muß im Block ® wie folgt vorformatiert sein: 


$00 HDDRV 11 00 Kennungskopf des UH-Fman zur Unterscheidung 
$02 00 09 z.B von Boot-Disketten, CP/M-Disketten etc. 


$0o4 SODSID 00 dx Single Or Double-SIDed x=0 single x=1 double 
$06 FBLEN xx xx Anzahl phys. Bytes pro Block, immer n*256 


$08 NOBLPT xx xx 2-er Logarithmus aus Blockzahl/Track/Seite 
Also Ö -> 1 Bl/Track, 1 -> 2 Bl/Track etc 


$0A NOSEPB xx xx Anzahl Sektoren pro Block, Sektorinkrement 
$0C HDBLNO xx xx HeaDer BLock Nummer - 1 

SOE ABMLEN xx xx Anzahl der insgesamt vorhandenen Blöcke 

$10 ABMIDX aa aa ABM-Start-Index zum Auffinden der ABM 

$12 DIRSTR dd dd Directory-Start-Index zum Auffinden des Dir. 
$14 DIRLEN xx xx Directory-Länge = max. mögl. Anzahl Files 


$16 DIRLEE xx xx Länge des Einzeleintrages/File im Directory 
Mindestens Namenslänge+t8 (normal:16) 


$18 NAMLEN xx xx Namenslänge (max. Anz. Bytes) im Directory 


(normal:8) 
$1A RESI 00 00 Reserviert 
$ic RES2 00 00 Reserviert 
SIE RES3 00 90 Reserviert 
$20 LABEL zz zz 'Label'-Text der Diskette (typ. 80 Bytes) 
Saaaa re ar Allocation-byte-map 'ABM'’. Muß initialisiert 


werden mit den ersten 2 Bytes SFF,SFF und 
allen weiteren Bytes jeweils Null. Es sind 
(4*Anzahl Blöcke) Bytes anzulegen. 


saddd er u Directory. Muß initialisiert werden mit: 
Erster Eintrag Name **FREE** (mit Blanks auf 
Namenslänge gefüllt) und alle weiteren 
(total: DIRLEN*DIRLEE) Bytes jeweils Null. 


ee Eventueller Rest bleibt ungenutzt. 
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Die Datenblöcke benötigen nur die Hardware-Initialisierung. Die 
Struktur ist hier nur zur Information angegeben: 

$00 FORBLK xx xx Folgeblock (0 falls letzter Block des Files) 
$02 BACBLK xx xx Vorgängerblock (0 falls erster Block) 

$04 MINIDX aa aa Index des ersten Nutdatenbytes 

$06 ACTIDX bb bb Aktueller Lese-/Schreibindex 

$08 WRTIDX cc cc Writer-Index. Schleppzeiger von ACTIDX 


$S0OA WMXIDX dd dd Indexgrenze (Letztes Byte des Blockst+1l) 


Saaaa Erstes Nutzdatum 

an (Zufälliger) aktueller Zeiger 

BR (Zufällige) Schreiber-Schlepposition 
ke Letztes Nutzdatum 


In Notfällen wäre also auch ein Lesen der Files ohne Directory 
möglich, wenn die Untergliederung (Blocklänge etc.) bekannt ist. 
Allerdings ist der Filename dann nicht feststellbar. 
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AUFBAU DES COMMUNICATION-ELEMENTS Communication-Element 


Das Betriebssystem übernimmt die Betreuung von Warteschlangen an 
E/A-Bausteinen mit begrenzter Übertragungsgeschwindigkeit, wie 
z.B. UART (ACIA) oder solchen digitalen Ein-/Ausgaben, bei denen 
zwischen den Transfers aus anderen Gründen Wartephasen anfallen 
(z.B. Floppy-Koppler o.ä.). Für rein elektronische und damit aus 
der Sicht des digitalen Prozesses beliebig schnell mögliche E/A 
ist das Betriebssystem nicht zuständig, da keine Wartephasen 
anfallen, die einen Taskwechsel sinnvoll werden lassen. 


Eine Task, die eine Ein-/Ausgabe beginnt, muß sich zuvor in den 
Besitz eines "Communication-Elements' (CE) bringen - wenn 
nicht noch ein 'leeres' von einer vorhergehenden E/A besi 
Dafür ist die Operation 'FETCE' vorgeschen. 


Das CE wird von der Task parametriert, z.B. durch Einsetzen der 
Warteschlangen-Nummer ('LDN'), des Übertragungsmodes, der Satz- 
länge, des File-Namens usw. 


Das gefüllte CE wird von der Task mit Hilfe der Operation 'XIO' 
dem Betriebssystem angeboten. 'XIO' bringt die Task in den 
Wartezustand 'I/0O?', sofern bei der Parametrierung des CE das 
Wartebit im Übertragungsmode gesetzt wurde. Wenn das Freigabebit 
('Release'-bit) von der Task gesetzt wurde, ist der Aufruf von 
'xIO' die letzte zulässige Operation der Task mit diesem CE, da 
es nach Abarbeitung in der Warteschlange automatisch als freier 
Speicher in die Verwaltung von RTOS-UH zurückkehrt. 


Wenn das Freigabebit nicht gesetzt wurde, muß die Task in 
geeigneter Weise mit dem 'CE' weiter verfahren. Eine Neuparame- 
trierung ist erst erlaubt, nachdem das CE abgearbeitet wurde. War 
beim Aufruf von 'XIO' das Wartebit gesetzt, so kann die Task nach 
dem 'XIO' sofort neu über das CE verfügen. Andernfalls ist mit 
der Systemfunktion 'IOWA' (I/O-Wait) das Ende der I/O-Operation 
abzuwarten. Ggf. kann noch vor einer Neuparametrierung nach dem 
"IOWA' der Rückmeldecode im CE analysiert werden. 


Ein CE wird auf drei mögliche Arten wieder zu freiem Speicher- 
raum: 
1. Aufruf von 'XIO' mit gesetztem Freigabebit. 
2. Die besitzende Task wird terminiert oder beendet sich 
selbst. 
3. Die Task ruft die Operation 'RELCE' für dieses CE auf. 


Der Aufruf von 'RELCE' (Release CE) ist immer möglich, solange 
die Task Besitzer des CE ist, also auch während eines noch 
laufende E/A-Vorganges über dieses CE. "RELCE' beeinflußt nicht 
die laufende oder durch 'XIO' gerade veranlaßte E/A-Operation. 


Bei der Terminierung einer Task ist zwischen Ein- und Ausgabe zu 

unterscheiden: 

- Bei der Ausgabe verbleiben mit 'XIO' bereits in die Ausgabewar- 
teschlange gebrachte CEs dort, es wird nur das Freigabebit 
gesetzt und die Task-ID im CE gelöscht. 
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- Bei der Eingabe werden die CEs, die noch nicht in Bearbeitung 
durch die Betreuungstask der Warteschlange sind, aus der 
Schlange genommen und zu freiem Speicher umgewandelt. In 
Bearbeitung befindliche CEs verbleiben bei der Betreuungstask 
(die angefangene Eingabe muß also regulär zu Ende geführt 
werden) bis sie abgearbeitet sind und werden dann zu freiem 
Speicher umgewandelt. 


Das CE ist ein wichtiger Bestandteil der Ein-/Ausgabe im 
Betriebssystem RTOS-UH. Dabei ist der genaue Aufbau nur für den 
Assemblerprogrammierer interessant. Für den Hochsprachanwender 
übernehmen Compiler und Laufzeitsystem die Parametrierung der 
CE's. 

In der folgenden Tabelle sind in der linken Spalte die Displace- 
ments der einzelnen Parameter relativ zu Al, dem Zeiger auf das 
CE nach 'FETCE', und daneben kurz ihre Bedeutung angegeben: 


so8 - $Sıı1 Verwaltungszeiger, nicht verändern! 
812-4815 TIDO Task-ID of owner, " 
SI6 = SID Verwaltungszeiger, nicht verändern! (Queue- 
links) 
SIE = SIF PRIO Plazierungsprio. in der Queue, dar£ 
verändert werden. Defaultwert ist 


die aktuelle Laufprio. der Task. 


$20 - $23 BUADR Buffer-adress. Darf verändert wer- 
den. 
$24 - $25 RECLEN Blocklänge (Anzahl Bytes), I/O-Task 


gibt eine Null zurück, falls LI/O 
nicht ausführbar. 


$26 STATIO Statusbyte 

$27 LDNIO LDN der Warteschlange, für die das 
CE bestimmt ist oder in der es 
steht. 

$28 - $29 MODE Betriebsart, Endebedingung etc. 

$2A - $2B DRV Drive-no. oder ACIA-mode 

SZChE ae FNAME File-name oder Pathlist, Autostop 
durch $FF 


Bedeutung der einzelnen Bits im Mode-Wort (ON='1', OFF='0'): 


1. Byte $80 MODMWA Suspend (Wait) until ready 

$40 MODMOU Output-direction 

520 MODMCR Auto-stop after transmission 
of a Carriage-return 

$10 MODMLF Auto-stop after transmission 
of a Line-feed 

508 MODMEO Auto-stop after transmission 
of a EOT 

594 MODMSC Suppress Command-inp. (ACIA), 
Ctrl A,B,C ohne Wirkung 

$082 MODMNE No echo on input (ACIA, SCC) 

so1 MODBIN binärer Transfer 
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Das 


Bedeutung, 
ler. 


Bedeutung der Bits im Statusbyte 


Rev. 


2. Byte im Mode-Wort hat nicht bei allen Stationen eine 


2. Byte 


RTOS-UH Dec. 


$80 


540 
$20 


$00 


sol 
$02 


$04 
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am dichtesten belegt ist es für den Floppy-Filehand- 


Rückmeldebit bei Eingabe: End- 
o£f-file 

No Error messages 

Exclusiv access 


Betriebsbefehle 1t. Tabelle: 
READ/WRITE 'OLD' File 
ERASE the File 


RETURN the File 


CLOSE the File 

READ/WRITE 'ANY' 

REWIND the File 

APPEND the File 

soB 

(list) FILES (CE in the CE !) 
(list) FREE (CE in the CE !) 
(list) DIRectory ( " ) 


SYNC (update Dir., physic.) 


SEEK (change position in file) 
SAVE next pos. to write to a 
file (SEEK's counterpart) 
(special) REWIND ('ANY') 


FORMAT single density 
FORMAT double density 
MaK DIRectory 

ReMove DIRectory 


"STATIO': 


Reserviert 

RTOS-UH soll oder will CE 
auflösen, sobald E/A fertig 
ist. Im Laborjargon als 'Ver- 
schrottungsbit' bekannt. Wird 
vom Nutzer z.B. vor dem 'XIO' 
gesetzt (dann ist das CE mit 
dem 'XIO' für ihn gestorben) 
oder implizit durch "RELCE', 
"TERMI', 'TERME'. 

Reserviert. 

“ 


Flag zur freien Verwendung des 
Nutzers 
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ASSEMBLERCODIERTE PEARL-UNTERPROGRAMME PEARL-Assembler-UP 


Der UH-Assembler ist auf das UH-PEARL-System abgestimmt, es 
können mit Hilfe des Laders problemlos auch assemblercodierte 
Unterprogramme in die PEARL-Umgebung integriert werden. Die 
Übergabe der Programmkontrolle an das Unterprogramm (UP) erfolgt 
mit Hilfe virtueller Befehle, die vom PEARL-Laufzeitsystem 
(Hyperprozessor) exekutiert werden. Wir betrachten dazu den Fall 


CALL ABCD(para-list); 


wobei ABCD ein Assemblerunterprogramm sein soll; Das Symbol ABCD 
muß im aufrufenden PEARL-Programm als ENTRY GLOBAL spezifiziert 
sein. Auf der Assemblerseite wird ABCD durch Voranstellung des 
Zeichens '>' global deklariert. Das PEARL-Run-time betritt das UP 
im virtuellen Mode an der Stelle >ABCD, unser UP muß also in 
jedem Fall mit einem virtuellen Befehl beginne wobei dies ggf. 
der Befehl V® zum Abschalten des Hyperprozessors sein kann. Die 
weiteren Randbedingungen beim Eintritt sehen wie folgt aus: 


Ad zeigt auf die Stelle an der das Paramterlink beginnt 
D2 enthält das Register A5 (='WL') des Aufrufers. 
A5 ist noch identisch zu D2. 


arak Die Register A4,A5,A6,A7 dürfen im Laufe des UP nicht vom 
Programmierer verändert werden. Kurzzeitige Veränderung 
ist zwar in gewissen Fällen möglich, wird aber nicht 
empfohlen. A7 ist mit max. 2 BSR-Level (8 Bytes) belast- 
bar, es muß beim UP-Austritt oder vor der Benutzung 
irgendwelcher virtuellen Befehle unbedingt wieder auf dem 
Eingangswert stehen. 
Bitte denken Sie auch daran, daß es Ihre eigene Aufgabe 
ist, dafür zu sorgen, daß das UP REENTRANT ist. Es dürfen 
also keine statisch allokierten Objekte im UP verändert 
werden, wenn Sie diese Bedingung einhalten wollen. 
Im folgenden sollen 2 Fälle unterschiedlicher Schwierig- 
keit betrachtet werden: 


Fall A: Es sollen weder Parameter noch Funktionswerte übergeben 
werden. Die Prozedur benötigt außer einigen wenigen 
Registern keinen eigenen Arbeitsspeicher. Ein Transfer 
von Werten ist über globale PEARL-Objekte dennoch mög- 
lich. 


Auf der PEARL-Seite generiert der Compiler aus CALL ABCD; 
die Sequenz: 

PROC >ABCD (PROC=V18) 

EPAR (EPAR=V19) 
Auf der Assembler-UP-Seite programmieren wir: 


Evtl. 'module-head' für RTOS (s.D-III) 


>ABCD vo Hyperproc. off 
CMPI.B =19,(A0) Vergl.auf EPAR 
BNE de Error - Zweig 


.... 68000-Usr-code 
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Fall B: 
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= DO..D7 zur freien Verfügung 
1) Als Ag ir 
JMP 2(AD) Rücksprung HP 


Das ist die schnellste Form des Anschlusses überhaupt. 
Notfalls kann auf das Überprüfen der leeren Parameter- 
liste (CMPI.B ...) auch noch verzichtet werden. Wenn Sie 
z.B. in dem UP Floatingbefehle benötigen, so muß zuvor 
der Hyperprozessor wieder angeworfen werden. Dies gelingt 
mit Hilfe des dem UH-Assembler bekannten Befehles TV, der 
nur ein bequemer Mnemo für den Trap 14 ist. 


Beim Zugriff auf in der PEARL-Welt global deklarierte 
Felder sind einige Besonderheiten zu beachten, da dem 
eigentlichen Variablenfeld im Speicher ein Vorspann 
(Feldbeschreibungsblock) vorangestellt ist. Aus 


DCL A(boundl,bound2,bound3) ... GLOBAL wird im Speicher 
>A DC.W bound3 2 Bytes 
DC.W bound2 2 Bytes 
DC.W boundi 2 Bytes 
DC.L offset+tadr 4 Bytes 
DS (Speicherbereich des Feldes) size Bytes 


Bei weniger als 3 Dimensionen entfällt die Ablage der 
nicht angegebenen Feldgrenzen. Die Werte von boundil etc. 
sind mit der 'Global+toffset'-option des UH-Assemblers 
ohne Probleme adressierbar. Die 32-bit-zahl 'offset+adr' 
gibt die physikalische Adresse an, auf der das Feldobjekt 
A(0,0,0) (welches nicht existiert) stehen würde. Damit 
wird die Indexformel beim Feldzugriff durch den Compiler 
(und den Assemblerprogrammierer) schneller und kürzer. 
Bei Unklarheiten ist ein Studium des vom Compiler gene- 
rierten Codes (/*+P*/-option) sehr zu empfehlen. 


Es sollen Parameter und Funktionswerte übergeben werden. 
Außerdem nehmen wir an, daß unser UP zusätzlichen inter- 
nen Arbeitsspeicher benötigt, dabei aber 'reentrant' sein 
soll. Wir betrachten wiederum zunächst die PEARL-Seite: 


SPC ABCD ENTRY(FIXED,FLOAT IDENT) RETURNS (FLOAT(55)) 
GLOBAL; 
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Z=ABCD (3,Y); /* Der Compiler generiert hieraus: */ 
PROC >ABCD (v18=PROC) 
INVW Xcon=3 (V14=INVW) 
VARF Y (vV12=VARF) 
VARD resultcell (V13=VARD) 
EPAR (V19=EPAR) 
MOVD resultcell,Z (MOVD ist ein Macro, 2x MOVE.L) 


Beim Studium des Codes wird erkennbar, daß Funktions-UPs 
sich nur durch einen zusätzlich angehängten Übergabepara- 
meter von den durch 'CALL' aufrufbaren UPs unterscheiden. 
Der Rückgabewert muß in eine vom Compiler beschaffte 
Zelle geschrieben werden. 


Vor der Codierung unseres Assembler-UP muß zunächst 
bestimmt werden, wieviel Prozedurworkspace "PWSP' 
gebraucht wird. In diesem PWSP müssen auch die Parameter- 
werte oder - bei IDENT - die vier Byte langen Adressen 
der Objekte untergebracht werden. Sollen Felder übergeben 
werden, so müssen auch Kopien der Feldbeschreibungsblöcke 
(s.o.) darin Platz finden. 


In unserem Beispiel sei angenommen, daß das UP intern das 
4 Byte lange Objekt HILF1 und das 8 Byte lange Objekt 
HILF2 benötigt. Wir codieren: 


-- ggf. module-head nach Beschreibung D-III -- 


“ Vereinbarungen zur besseren Lesbarkeit des Progr: 
RETN OPD $4EAC Opcode definition = TRAP 12 
ENTR OPD.V 29 Opcode proc-entry (Hyperproc.) 
INVW OPD.V 14 Invariant 16 bit fixed = v14 
VARF OPD.V 12 Variable Float 32 bit = vı12 
VARD OPD.V 13 Variable Float 64 bit = v13 
EPAR OPD.V 19 End of parameter Xfer = v19 
* PWSP-Allocation 
PAR1 EQU o 2 bytes positioned to 0(A5) 
PAR2 EQU PAR1+2 4 bytes positioned to 2(A5) 
WERT EQU PAR2+4 4 bytes (adr) pos. to 6(A5) 
HILF1 EQU WERT+4 4 bytes (internal) to 10(A5) 
HILF2 EQU HILF1+4 8 bytes (internal) to 14(A5) 
WSPSZ EQU HILF2+8 Total Size of Procedure-WSP 
* 
>ABCD ENTR WSPSZ.L Fetch storage from 'RTOS-UH' 
INVW PAR1.X xfer 16-bit FIXED by 'value' 
VARF PAR2.Z xfer 32-bit FLOAT by 'Ident' 
VARD WERT.Z xfer 64-bit FLOAT by 'Ident' 
EPAR End of param., hyperproc off 
x reeller 68000-code. D®...A3 sind frei verfügbar. 
* A5 zeigt auf Ablageplatz des Wertes von PARI. 
RTOS-UH Dec. 1986 E-IV-3 


PEARL-Assembler-UP 


* Der Zugriff auf die Objekte: 


MOVE.L =$01400000,HILF1(A5) oder (gleichwertig): 
MOVE.L =$01400000,HILF1.X 

MOVE PAR1.X,D4 Die Zahl 3 des obigen Bsp.->D4 
MOVEA.L PAR2.X,A® Zeiger laden, da IDENT xf£fer! 
MOVE.L =$01400000, (Ad) Wert-> 'Y' des Beispieles 
MOVEA.L WERT.X,AO Zeiger auf Ergebniszelle laden 
MOVE.L HILF2.X, (A0O)+ xfer Bytes 1..4 Ergebnis 


MOVE.L HILF2+4.X, (A0) am 5.6 u” 

* Bsp. letzte Sequenz unter Verwendung des Hyperproc 
TV Hyperproc hier "anwerfen' 
v1 WERT.Z,HILF2.X (Reihenfolge: dest,source) 
eiaisıe evtl. andere virt. Befehle 
vo Hyperproc hier abschalten 
ale evtl. weiterer Realcode 

* Bsp. zum Verlassen des UP, nur im Realcode moeal. 
RETN Realer Befehl, exit des UP 
END 


Die Verwendung des V1-Befehles, der auch als MOVU OPD.V 1 
hätte deklariert werden können, dient nur der Demonstra- 
tion, da der Befehl inzwischen von den Compilern nicht 
mehr benutzt wird. (s. Liste) .MERKE: Hilfszellen und per 
'value' übergebene Objekte werden mit .X oder (nur bei 
realen Befehlen möglich) ..(A5) adressiert. Durch Zeiger 
vertretene Objekte werden bei realen Befehlen durch Laden 
eines Adressregisters und bei virtuellen Befehlen durch 
die .Z -adressierung erreicht. Bei den Parameterübergabe- 
befehlen im Kopf des UP wird durch .Z der Ident- und 
durch .X der Valuemode der Übergabe festgelegt. Bei 
Identmode darf das Objekt der Aufrufseite nicht invariant 
sein, sonst wird wie bei falschem Parameterdatentyp ein 
Laufzeitfehler angezeigt. Grundsätzlich kann man die 
Übergabe auch ohne den Hyperprozessor schaffen, wenn der 
Aufbau der Aufrufseite durch das UP selbst interpretiert 
wird. 


Liste der Parameterübergabebefehle und Hinweise zur Verwendung. 


A. Datentypen FIXED,FLOAT skalar. 


INVD v17 Invariant Float (55) = 8 Byte Float 
INVF v16 Invariant Float (23) = 4 Byte Float 
INVW vı14 Invariant Fixed (15) = 2 Byte Fixed 
INVX v15 Invariant Fixed (31) = 4 Byte Fixed 
VARD v13 Variable Float (55) = 8 Byte Float 
VARF v12 Variable Float (23) = 4 Byte Float 
VARW vı10 Variable Fixed (15) = 2 Byte Fixed 
VARX vıl Variable Fixed (31) = 4 Byte Fixed 
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B. Datentypen CHAR, BIT(2 typen!), DUR, CLOCK, STRUCT skalar. 


MPXF OPD.V 139 Miscellaneous parameterxfer 2 Op. 
Anwendung: MPXF dtyp.object.X oder ...object.Z 


Die Zelle DTYP (2/4 Byte) muß die Datentypbe- 
schreibung enthalten. 


l. Byte in dtyp: 


nur bei CHAR und BIT (sonst 0): Objektlänge. 


2. Byte in dtyp: 


$08 = CHAR » 809 = INV CHAR 

$0oA = BIT(1..16); $0B = INV BIT(1..16) 
$oC = BIT(17..32); $OD = INV BIT(17..32) 
$OE = DURATION » $SOF = INV DURATION 
$10 = CLOCK » SI1 = INV CLOCK 

$12 = STRUCT ; $13 = INV STRUCT 


3./4. Byte in dtyp: 


Nur bei STRUCT nötig: Number of Bytes of obj. 


Beispiel: 


MPXF OPD.V 139 


MPXF C7,TEXT.X '"Value'-übergabe String. 

MPXF B16,MASK.Z 'Ident'-übergabe Bitmask 
c7 DC.B 7,809 CHAR (7) invariant object. 
B16 DC.B 16,5$0A BIT(16) variable object. 
* Für MASK müssen 4 Byte (Adresse!) und für 
* TEXT 7 Bytes im PWSP vorgesehen sein. 
* Bei 'value'-übergabe findet ggf. eine Anpas- 
* 


sung der CHAR-Längen statt. 


C. Übergabe von Feldern. 
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Cl. Arrays der Typen FIXED,FLOAT,DURATION,CLOCK,STRUCT. 
ARNS OPD.V 122 "Array no string‘ 3 Operanden. 
ARNS offs+tadr-cell,boundlistcells,descr.mask 


ARNS OFFS.X,BOUNDS.X,$0812.X (2dim DUR-Feld) 
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Für OFFS sind 4 Bytes bereitzustellen, für die 
Liste der bounds (2*Anz.Dimensionen) Bytes. Die 
Feldgrenzen werden in der Reihenfolge des Feld- 
beschreibungsblockes abgelegt. Auf OFFS steht 
die (fiktive) Speicheradresse des Feldelementes 
(0) bzw. (0,0) oder (0,0,0). Wenn OFFS unmittel- 
bar hinter BOUNDS liegt, entsteht somit ein kom- 
pletter neuer Feldbeschreibungsblock. 


Fe ee Ze ee 


Die "descriptionmask' enthält Informationen über die 
Anzahl der Dimensionen und den Datentyp wie folgt: 


Typ idim, (inv) 2dim, (inv) 3dim, (inv) 
FIXED (15) $0401,50541 $0801,$0941 $0C01,$0D41 
FIXED (31) $0402,50542 50802,$0942 $0c02,$0D42 
FLOAT (23) $0404,$0544 $0804,50944 $0Cc04,$0D44 
FLOAT (55) $0408,505438 $0803,$0948 $0C08,$0D48 
DURATION $0412,$0552 $0812,$0952 $0C12,$0D52 
CLOCK $0416,$0556 $0816,50956 $0C16,$0D56 
STRUCT $0415,$0555 50815,$0955 $50C15,$0D55 


Bekanntlich ist im UH-PEARL der Feldtransfer nur im 
'ident'mode möglich, so daß es keine weitere Fall- 
unterscheidung wie bei den Skalaren gibt. 


Bei den Verbundobjekten (STRUCT) folgt dem ARNS noch 
eine Längenüberprüfung LTST (=V72) als weiterer Para- 
meterübergabebefehl. Er hat einen Operanden, der 
unmittelbar die Anzahl Bytes, aus der die Struktur 
besteht, representiert. 


ARNS ...1...,$0415.X Übergabe Verbundfeld. 
LTST 25,8 Verbundtyp besteht aus 25 Bytes. 


Arrays der Datentypen BIT und CHAR. 


ARBS OPD.V 123 "array bitstring', 3 Operanden 
ARCS OPD.V 124 "array char.string',3 Operanden 
ARCS offs+tadr-cell,boundlist-cells,descr.mask 
ARBS Eu 
ARCS OFFS.X,BOUNDS.X,$0812.X = ..(,) CHAR(18) 
ARBS OFF2.X,BOU2.X,$0C09.xX = ..(,,) BIT(9) 


Es gelten sinngemäß die gleichen Bedingungen wie bei 
der Instruktion "ARNS'’; im Gegensatz zum 'ARNS' ent- 
hält die 'description-mask' nun im rechten Byte die 
Länge in bytes (char) oder in bits (bit) des Feldele- 
mentes. Im Einzelfall ist wie folgt zu kodieren: 


Typ Bef. 1dim, (inv) 2dim, (inv) 3dim, (inv) 


BIT(xx) ARBS $04xx,S$05xx $08xx,$09xx SOCxx,SODxx 
CHAR (yy) ARCS $04yy,S05yy $08yy,$09yy S$SOcyy,SoDyy 
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Hyperprozessorbefehle Hyperprozessor 


Die virtuellen Maschinenbefehle des Laufzeitsystemes bilden den 
sogenannten 'Hyperprozessor'. Die Benutzung der Befehle ist zwar 
auch dem Assemblerprogrammierer möglich, doch wird keine Gewähr 
für langfristige Unveränderlichkeit des Hyperprozessors gegeben. 
Im Zuge von Compilerverbesserungen können immer auch Veränderun- 
gen des Befehlssatzes auftreten. Man überzeuge sich daher genau, 
ob die aktuelle Variante noch alle benutzten Befehle enthält. 


No. XW Mnemo Bemerkungen 

vo = TOREAL Abschalten des Hyperprozessors * 
v1 2 MOVU Nicht für Neuentwicklung (Move 8 bytes) * 
v2 1 (ADDF) Nicht für Neuentwicklung (Add Float 23) * 
v3 1 (ADDD) Nicht für Neuentwicklung (Add Float 55) * 
va 1 (SUBF) Nicht für Neuentwicklung (Sub Float 23) * 
v5 1 (SUBD) Nicht für Neuentwicklung (Sub Float 55) * 
v6 1 (MULX) Nicht für Neuentwicklung (Mul Fixed 31) * 
v7 1 (MULD) Nicht £für Neuentwicklung (Mul Float 55) * 
v8 a (DIvX) Nicht für Neuentwicklung (Div 31) * 
v9 1 (DIVD) Nicht für Neuentwicklung (Div 55) * 
v10 1 VARW Para XFER: Variable Fixed 15 * 
vıı 1 VARX Param. XFER: Variable Fixed 31 * 
vı12 1 VARF Param. XFER: Variable Float 23 » 
v13 1 VARD Param. XÄFER: Variable Float 55 % 
vı4 1 INVW Param. Xfer: Konstante Fixed 15 * 
v15 1, INVX Param. XFER: Konstante Fixed 31 * 
v16 2: INVF Param. XFER: Konstante Float 23 K 
v17 1 INVD Param. XFER: Konstante Float 55 * 
vı18 a CALL Call procedure. (Im Comp. als PROC) * 
v19 = EPAR End of Parameterlist * 
v20 2 SHFS Shift 1 TO 16 BIT Object “ 
v21 2 SHFL Shift 17 to 32 BIT Object * 
v22 = cVXF Nicht für Neuentwicklung, Fix3l to Flo23* 
v23 — CVWD Nicht für Neuentwicklung, Fix15 to F1055* 
v24 - CVXD Nicht für Neuentwicklung, Fix31 to F1055* 
v25 = CVFD Nicht für Neuentwicklung, Flo23 to F1055* 
v26 4 CATC Concatenation von 2 CHAR-strings * 
v27 =} PUT Eröffnung einer Liste für PUT x 
v28 3 GET Eröffnung einer Liste für GET « 
v29 L ENTR Prozedureintritt mit PWSP-Erzeugung a 
v30 2 EFR2 E-Format mit 2 Parametern ® 
v31 3 EFR3 E-Format mit 3 Parametern * 
v32 1 PAGE PAGE-Format * 
v33 d XFOR X-Format € 
v34 al RLFO Remote-Left-Bracket in Format * 
v35 ı EALW E/A of Fixed15 * 
v36 1 EALX E/A of Fixed3l * 
v37 1 EALF E/A of Float23 * 
v38 1 EALD E/A of Float55 * 
v39 a: EADU E/A of Duration 2 
v40 1 EACL E/A of Clock * 
val = LBRK Left Bracket in Format x 
v42 = RBRK Right Bracket in Format * 
v43 > FESP Format-End-specification x 
v44 hi FACT Format Wiederholfaktor * 
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v45 
v46 
v47 
v48 
v49 
v50 
v51 
v52 
v53 
v54 
v55 
v56 
v57 
v58 
v59 
V60 
v61 
v62 
v63 
v64 
V65 
V66 
V67 
v68 
v69 
v70 
v1 
v72 
v73 
v74 
v75 
V76 
v77 
v78 
v79 
v80 
v8l 
v82 
v83 
v84 
v85 
v86 
v87 
v88 
v89 
v99 
v91 
v92 
v93 
v94 
v95 
v96 
v97 
v98 
v99 
v100 
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IBWINDDDDDPRRPRHRHRURIMH 


IPrırrı 
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AFOL 
LIFO 
SKFO 
OPN3 
RWND 
SYNC 
APND 
EORL 
CSHL 
IOBS 
CSHS 
SEEK 
SAVP 
NEBS 
NECS 


EQUD 
SUSE 
NEQD 


LTST 
(LTHF) 
(LTHD) 


“x 
“x 
xx 
“x 


xx 
“x 


Hyperprozessor 


A-Format 

List-Format 

SKIP-Format 

OPEN 3 Param. (BY IDF(..)) 
REWIND Dation and open 
Synchronize Dation 

Append to a File 

EOR with 32 Bit Obj. 

Cyclice shift 17 to 32 Bit 
I/oO Bit-string 

Cyclic Shift 1 to 16 Bit 
Seek a position in a file 
Save a position in a file 
Nicht mehr besetzt 

Not equal for Bit-strings 
Not equal Character-string 
Nicht mehr besetzt 

Nicht mehr besetzt 

Equal long Float 

Suspend e rnal (given Task) 
Nicht mehr be 
Not equal long Float 
Nicht 
Nicht 
Nicht 
Nicht 
Nicht besetzt 

Length-test (Struct-param fer) 

Nicht für Neuentwicklung ( LT Float(23)) 
Nicht für Neuentwicklung ( LT Float (55)) 
Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Power Fixed (15) 

Power Fixed(31) 

Power Float (23) 

Power Float (55) 

Terminate (given Task) 

Prevent (given Task) 

Continue (given Task) 

Line-marker in virtual environment 

Open Dation (no operation) 

Close Dation (if closable) 

(When)... Continue 

(Timed) ..Continue 

Activate with priority 

(When)..activate with priority 
(Timed)..activate with priority 

(When) .. Resume (own Task) 

(Timed) .. Resume (own Task) 

Start schedule-definition 


Fe ee u ze au ze ze Se ze Ze u ee ee 


De ee Se ae Ba ae ee u ee a a ee ee se a a a 
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vıo1 
v102 
v103 
vı104 
v105 
V106 
v107 
v108 
v109 
vı110 
vı11 
v112 
vı113 
vı14a 
v115 
v116 
v116 
vı18 
v119 
v120 
vı121 
v122 
v123 
vı124 
v125 
v126 
v127 
v128 
v129 
v139 
vı131 
v132 
v133 
v134 
v135 
v136 
v137 
v138 
v139 
v149 
vı14l 
v142 
v143 
v144 
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IovIHrı! 
127 
» 
ie} 
un 


Ivvvvwvvww»m»lı 
» 1 
a 1 
zZ ı 
un j 


(MULF) 
(DIVF) 
EORW 
(CVWF) 
(LDAD) 
(STAD) 
DMYD 
DMYI 
MPXF 
(ABSF) 
(ABSD) 
(ENTI) 
= (ROUN) 
- (SIGN) 


IDPFRFrRIPRHR 
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AT (clock) schedule param. set 

AFTER (duration) schedule param. set 
ALL (duration) schedule param. set 
UNTIL (clock) schedule param. set 
DURING (duration) schedule param. set 
WHEN (event) schedule param. set 
WRITE-Instruction 

READ-Instruction 

Nicht mehr besetzt 

Nicht mehr besetzt 

End I/O-List (escape-label) 
Remote-format end 

E/A Character-string 

F-Format 

Nicht besetzt 

Nicht besetzt 

Nicht besetzt 

Equal Bit-strings 

Equal char. strings 

Move Bit-string 

Move character-string 
Array-param.xfer 'no string" 
Array-param.xfer 'bitstring' 
Array-param.xfer 'char.string' 
B-format 

D-format 

T-format 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht mehr besetzt 

Nicht für Neuentwicklung (MUL Float (23))* 
Nicht für Neuentwicklung (DIV Float (23))* 
Excl.Or 32 Bit (Fehlt in 68000 Hardw.)* 
Nicht für Neuentwicklung (Fix15 to F123)* 
Nicht für Neuentwicklung (Load acc.8 by)* 
Nicht für Neuentwicklung (St. accu 8 by)* 
(Dummy)-Dation parameter xfer 

(Dummy) -Interrupt parameter xfer 
Miscellaneous Parameter X-fer 

Nicht für Neuentwicklung (ABS accu F123) 
Nicht für Neuentwicklung (ABS accu F155) 
Nicht für Neuentwicklung (ENTIER) 

Nicht für Neuentwicklung (ROUND) 

Nicht für Neuentwicklung (SIGN) 


a a a 


Be ee en 


E-IV-9 


Hyperprozessor 


Im Folgenden sind alle Befehle, die unsere Compiler erzeugen, in 
alphabetischer Reihenfolge aufgelistet. 


Mnemo xW Operation Bemerkung # 
Re * 
ABAL - ADD.L A5,DO Add base adr long * 
ABSD = JSR -72(A6) x 
(ABSD) - v141 Nicht für Neuentwicklung (ABS accu F155)* 
ABSF = JSR -68 (A6) ABS Flo23 * 
(ABSF) - v149 Nicht für Neuentwicklung (ABS accu F123)* 
AC-1 = SUBQ =1,DO % 
ACHT 2 v95 Activate with priority * 
ADDA = ADD.L A1l,DO * 
(ADDD) 1 v3 Nicht für Neuentwicklung (Add Float 55) * 
ADDD al Macro LEA obj,Al + JSR -20(A6) * 
(ADDF) 1 v2 Nicht für Neuentwicklung (Add Float 23) * 
ADDF I Macro LEA obj,Al + JSR -4(A6) > 
ADDI 2 ADDI.W =con, xxx * 
ADDM ı ADD.W DO®,xxx * 
ADDW 1: ADD.W Native Add * 
ADDX 1 ADD.L Native Add long x 
ADIL 1 ADD.L =xx,DO® Add immediate long * 
AD+2 - ADDQ.L =2,Al Quick adr. shifter « 
AFOL 1 v45 A-Format * 
AFTR A, v102 AFTER (duration) schedule param. set * 
ALLD I: v103 ALL (duration) schedule param. set x 
ANDW al AND.W Native AND Word * 
ANDL T AND.L Native AND Long « 
ANIW 1 ANDI.W =xx,D® = 
ANIL 1 ANDI.L =xx,D® * 
APND 1 v51 ** Append to a File * 
ARBS 3 v123 Array-param.xfer 'bitstring' * 
ARCS 3 v124 Array-param.xfer 'char.string' « 
ARNS 3 vı122 Array-param.xfer 'no string" « 
ATCL 1: vı101 AT (clock) schedule param. set * 
BFOR 2 v125 B-format x 
BGE4 - BGE.S $+4 ); 
BGEL 1 BGE.L xxx Conditioned branch ge x 
BGTL 1 BGT.L xxx Conditioned branch gt x 
BLTL 1 BLT.L xxx Conditioned branch 1t * 
CALL 1 vı18 Call procedure. (Im Comp. als PRÜC) * 
CASE = JMP -96 (A6) For CASE-construct a) 
CATC 4 V26 Concatenation von 2 CHAR-strings * 
CDAT 1 v92 Close Dation (if closable) RK 
CLRL 1 CLR.L xx x 
CMPW 1 CMP.W Native Compare to D® * 
CMPL d CMP.L Native Compare long to D® * 
coNT 1 v89 Continue (given Task) * 
CSHL 2 v53 Cyclie' Shift 17. t0 32 Bit r 
CSHS 2 v55 Cyclic Shift 1 to 16 Bit he 
CVBL = Macro Convert Bitstring to long SWAP DO + CLR * 
CVFD = CLR.L D1 Convert Flo23 to F1055 > 
(CVFD) - v25 Nicht für Neuentwicklung, Flo23 to F1055* 
CVWD F JSR -56(A6) Convert Fix15 to F1055 E 
(CVWD) - v23 Nicht für Neuentwicklung, Fix15 to Flo55* 
CVWF = JSR -64 (A6) Convert Fix15 to Fl1o23 ® 
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(CVWF) 
CVHX 
CVXD 
(CVXD) 
CVXF 
(CVXF) 
DOAO 
DoA1 
DO*2 
DOox4 
DO*8 
DFOR 
DISA 
DIVD 
(DIVD) 
DIVF 
(DIVF) 
DIVW 
DIVX 
(DIVX) 
DMYD 
DMyYI 
DSCO 
DUDU 
EACL 
EACS 
EADU 
EALD 
EALF 
EALW 
EALX 
EFR2 
EFR3 
ENAB 
ENTI 
ENTI) 
ENTR 
EOLI 
EORL 
EORW 
EPAR 
EQBS 
EQOCS 
EQUD 
EQUF 
EQUW 
EQUX 
EXIT 
EX20 
FACT 
FESP 
FFOR 
FLFR 
FREL 
GET 


IUDFRFFPFFRPRRDEPIKRFRRPRRRHRHRTIDS 


IPPFFPBSEIKPPPRHR IT 


Iwimiı 


w 


Hyperprozessor 


v134 Nicht für Neuentwicklung (Fix15 to 
EXT.L DO Convert Fix15 to Fix3l 

JSR -60(A6) Convert Fix31l to F1055 

v24 Nicht für Neuentwicklung, Fix31l to 
JSR -52(A6) Convert Fix31l to F1o23 

v22 Nicht für Neuentwicklung, Fix3l to 


MOVEA.L DO,AO Quickload of adr-reg (optim. 
MOVEA.L DO,A1 Sr 

ADD DO,DO Verdoppel DO 

LSL =2,D0 Vervierfache DO 

LSL =3,D0 Verachtfache DO 


v126 D-format 

TRAP SA034 Disable Interrupt 

Macro LEA obj,Al + JSR -32 (A 

v9 Nicht für Neuentwicklung iv Float 55) 
Macro LEA obj,Al + JSR 5 

v132 Nicht für Neuentwicklung V Float(23) 
DIVS Native divide 

Macro LEA obj,Al + JSR -48(A6) 

v8 Nicht für Neuentwicklung (Div Fixed 31) 
v137 (Dummy_-Dation parameter xfer 

v138 (Dummy) -Interrupt parameter xfer 

SUBQ =1,D2 Decrement Shift count one 

v105 DURING (duration) schedule param. set 
v40 E/A of£ Clock 

vı113 E/A Character-string 

v39 E/A o£ Duration 

v38 E/A of Float55 

v37 E/A o£ Float23 

v35 E/A of Fixed15 

v36 E/A of Fixed3l 

v30 E-Format mit 2 Parametern 

v31 E-Format mit 3 Parametern 

TRAP $A032 Enable Interrupt 

JSR -76(A6) ENTIER-Funktion 

v142 Nicht für Neuentwicklung (ENTIER) 

v29 Prozedureintritt mit PWSP-Erzeugung 
viTl End I/O-List (escape-label) 

v52 EOR with 32 Bit Obj. 

v133 Excl.Or 32 Bit (Fehlt in 68000 Hardw.) 
v19 End of Parameterlist 

vı118 Equal Bit-strings 

v119 Equal char. strings 

v63 Equal long Float 

Macro Konstruktion mit CMP.L + versch. ff 
Macro Konstruktion mit CMP.W + versch. ff 
Macro Konstruktion mit CMP.L + versch. ff 
TRAP =1 Terminate own Task 

EXG D?2,DO (in FOR .. BY variable .. REPEAT) 
v44 Format Wiederholfaktor 

v43 Format-End-specification 

vı114 F-Format 

JSR -88(A6) Float to fraction conv. ('SEND') 
JSR -92(A6) Fraction to Floating conv. (TAKE) 


v28 Eröffnung einer Liste für GET 


F123) * 


* 
« 


F1l055* 


* 


Flo23* 


) 


* 


Eee ee ee a a a ee ee a a a a a a a a a a a a a a a a a a a ee en 
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INVD 
INVF 
INVW 
INVX 
IOBS 
ITsı 
ITs2 
ITS3 
JRSI 
ISR 
LBRK 
LDAD 
LDIL 
LEFA 
LIFO 
LIMR 
LIMV 
LTHD 
(LTHD) 
LTHF 
(LTHF) 
LTST 
MMBY 
MOVB 
MOVF 
MOVD 
MOVU 
MOVH 
MOVX 
MPXF 
MULD 
(MULD) 
MULF 
(MULF) 
MULU 
MULW 
MULX 
(MULX) 
MVBS 
MVCS 
NEBS 
NECS 
NEGW 
NEGL 
NEQF 
NEOW 
NEQX 
NOT 
NOTW 
NOTL 
ODAT 
OPN3 
ORW 
ORL 
PAGE 
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PRFRUPFFERPRPHRRSUDGULFHRFPHRHRRRFD UND WNSDHRHRRHRHR 


IDBHRPHRR 


IPPPRIH 


v17 

v16 

vı4 

v15 

v54 

TRAP $AD40 
TRAP $A042 
TRAP $A044 
JSR (Al) 
JSR xxx 
val 

v135 
MOVE.L =xx 
LEA xx, Al 
V46 

TRAP $A036 
v98 

Macro 

v74 

Macro 

v73 

v72 

Macro 
MOVE.B 
MOVE.L 
Macro 

v1 

MOVE.W 
MOVE.L 
v139 

Macro 

v7 


NEG.W xx 
NEG.L xx 


Hyperprozessor 


Param. XFER: Konstante Float 55 
Param. XFER: Konstante Float 23 
Param. Xfer: Konstante Fixed 15 
Param. XFER: Konstante Fixed 31 
I/O Bit-string 

Index-test 1-din. 

Index-test 2-dim 

Index-test 3-dim 
Native pointered jump subroutine 
Native jump subroutine 
Left Bracket in Format 
Nicht für Neuentwicklung (Load acc.3 by)* 


ee" 


‚D8 (L immediate long) 
List- 
Li in real environment 


Line-m: r in virtual environment 
LEA obj,Al + JSR -40(A6) a 
Nicht für Neuentwicklung ( LT Float (55))* 
LEA obj,AlL + JSR -36(A6) r 
Nicht für Neuentwicklung ( LT Float (23))* 
Length-test (Struct-param x£fer) 

Move multibyte, schnelle DBF-Konstrukt. 
Native Move byte 

Native Move long 

Verschiedene Sequenzen native Code 
Nicht für Neuentwicklung (Move 8 bytes) 
Native Move 

Native Move long 

Miscellaneous Parameter X-fer 

LEA obj,Al + JSR -28(A6) 

Nicht für Neuentwicklung (Mul Float 55) 
LEA obj,Al + JSR -12(A6) 

Nicht für Neuentwicklung (MUL Float(23)) 
Native Multiply 16 bit unsigned 

Native Multiply 16 bit 

LEA obj,Al + UJSR -44(A6) 

Nicht für Neuentwicklung (Mul Fixed 31) 
Move Bit-string 

Move character-string 

Not equal for Bit-strings 

Not equal Character-string 


Konstruktion mit CMP.L + versch. ff 
Konstruktion mit CMP.W + versch. ff 
Konstruktion mit CMP.W + versch. ff 
Native NOT Word 

Native NOT Word 

Native NOT Long 

Open Dation (no operation) 

OPEN 3 Param. (BY IDF(..)) 

Native OR 

Native OR long 

PAGE-Format 


nu II I 
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PNTR : DC.W 

POWD 1 v86 

POWF 1 v85 

POWW 1 v83 

POWX al v84 

PREV 1 v88 

PROC ai v18 

PUT 3 v27 

QSHC 1 MOVEQ ..,D 
RBRK = v42 

READ 3 v108 

REQU Be TRAP =6 
RELA = TRAP = 
RETN — TRAP =12 
RFEN = vı112 

RLFO v34 

ROLL = ROL.L D2,D 
ROUN = JSR -80 (A6 
ROUN) = v143 

RWND ak v9 x*% 
SAVP 2 v57 ** 
SEEK 2 Vv56 %* 
SHFL 2 v21 

SHFS 2 v20 

SIGN 1 Macro 
SIGN) 1: v144 

SKFO 1 v47 

SSHC = MOVE D0,D2 
STAD a v136 

STAL 1 MOVE.L D®, 
STSC En v190 

SUBD al Macro 
(suBD) 1 v5 

SUBF 1 Macro 
(suBF) 1 v4 

SUBNW al SUB.W 
SUBX I SUB.L 
SUSE al v64 

SUSP = TRAP $AO28 
su20 = SUB D2,D® 
SWAP = SWAP D® 
SWLT F Macro 
SYNC 1 v50 %*x* 
TACT 2 v97 

TCON E v94 

TERM 1 v87 

TFOR 2 v127 

TRES - v99 

TSTW 2 TST.W DO 
TSTL -: TST.L D® 
UNIL 1 v194 

VARD EN v13 

VARF 28 vı12 

VARW A. vı10 

VARX ar vıl 
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Only Extension Word 

Power Float (55) 

Power Float (23) 

Power Fixed (15) 

Power Fixed(31) 

Prevent (given Task) 

Call procedure 

Eröffnung einer Liste für PUT 
2 Quick shiftcount 

Right Bracket in Format 
READ-Instruction 

Request SEMA (adr. by Al) 
Release SEMA (adr. by Al) 
Return from procedure 
Remote-format end 
Remote-Left-Bracket in Format 
[v) 

) ROUND-function 

Nicht für Neuentwicklung (ROUND) 
REWIND Dation and open 

Save a position in a file 
Seek a position in a file 
Shift 17 to 32 BIT Object 
Shift 1 TO 16 BIT Object 


LEA obj,Al + JSR -84(A6) SIGN-£function 


Nicht für Neuentwicklung (SIGN) 
SKIP-Format 
Store Shiftcount in D2 


Nicht für Neuentwicklung (St. accu 8 by) 


xx(A5) 
Start schedule-definition 
LEA obj,Al + JSR -24(A6) 


Nicht für Neuentwicklung (Sub Float 55) 


LEA obj,Al + JSR -8(A6) 


Nicht für Neuentwicklung (Sub Float 23) 


Native Subtract Word 

Native Subtract Long 

Suspend external (given Task) 
Suspend self 
(In FOR ... REPEAT) 


SLT DO + EXT DO 
Synchronize Dation 
(Timed)..activate with priority 


(Timed) ..Continue 
Terminate (given Task) 
T-format 

(Timed) .. Resume (own Task) 


UNTIL (clock) schedule param. set 
Param. XFER: Variable Float 55 
Param. XFER: Variable Float 23 
Param. XFER: Variable Fixed 15 
Param. XFER: Variable Fixed 31 


KR + 


KR EHEIITTIEEE r 
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WACT 
WCON 
WHEV 
WRES 
WRIT 
XFOR 


E-IV-14 


PbIirrv 


v96 
v93 
v106 
v98 
V107 
v33 


Hyperprozessor 


(When)..activate with priority 
(when)... Continue 
WHEN (event) schedule param. set 
(own Task) 


(When) .. Resume 
WRITE-Instruction 
X-Format 


Rev. 


RTOS-UH Dec. 


ee u Zee 


1986 


EIN-/AUSGABE VON ASSEMBLEREBENE E/A-Assembler 


Vor dem Studium der Codierung eigener E/A-Treiber sollte man sich 
mit der typischen Maschinencode-sequenz einer Ein- oder Ausgabe 
vertraut machen. Dazu betrachten wir den Fall einer E/A über den 
ACIA/SCC mit der Warteschlangennumner 2. Es empfiehlt sich, das 
Assemblerprogramm durch den folgenden universellen I/O-Vorspann 
lesbarer zu machen. Man lese dazu auch unter E-III die Beschrei- 
bung des Communication Elements (CE). 


* Define Systemtraps: 

FETCE OPD $4E48 Fetch communication-element (CE) Systrap 
IOWA OPD SAOOA I/O wait function 

RELCE OPD $4E49 Release the CE 

xIo OPD S4E4A communication-element for I/O 

* Define relative ements in communication-element: 
BUADR EQU $20 long buffer-address (fron 

FNAME EQU $2A -name + type + drive 


LDNIO EQU $27 
MODE EQU $28 


al dation number (=Queue-nunber) 
byte of communication-element 


RECLEN EQU $24 Record length (16 bit) 

STATIO EQU $26 Statusbyte of communication-element 

* Symbolic masks and bit-positions: 

MODMOU EQU $40 Mode-mask for Output 

MODMCR EQU $20 Mode-mask "carriagereturn ends record' 

MODMWA EQU $80 Mode-mask "wait for completion' 

MODM.. Other masks when used 

STABRE EQU 1 "Verschrottungsbit' 
FALL A: Es soll eine Ausgabe gestartet werden und während 
Be des Transfers noch etwas anderes gemacht werden. Das 


CE soll anschließend für einen weiteren E/A-Vorgang 
erneut benutzt werden. Textlänge sei 50 characters. 
Wir codieren: 


u ehe Seele Arbitrary code before write sequence 
MOVEQ =50,D1 Communication-elem. with 50 char. infolen. 


FETCE Get space from RTOS-UH, Al is loaded 
MOVE.B =MODMOU+$0,MODE (Al) Xfer-mode: out,no wait,by cnt. 
MOVE.B =2,LDNIO(A1) Queuenumber = 2 (Dation=ACIA2) 
CLR.B FNAME+11(A1) Ax (not Bx or Cx) 

MOVEA.L BUADR(A1),A2 pointer 1st character in buffer 
MOVE.B ...,(A2)*+ put info into communication elem. 
MOVE =50,RECLEN(Al) all 50 characters to write 

xIo Make the output 


RER: other activities while output is running 
see Al must be saved and reloaded !! 


IOWA Wait for completion of I/O with Al-com.el 
ale from here on: A1-CE may be used again 
RELCE Release the CE in Al. Al is invalid now 


Rev. RTOS-UH Dec. 1986 E-v-1 


EIN/-Ausgabe von Assemblerebene (Forts.) E/A-Assembler 


FALL B. 

Über B2 soll ein Stück Text gelesen werden und dabei 
noch Programmaktivität während des Lesens stattfinden. 
Außerdem soll kein Echo erzeugt werden, der Zugang zum 
Bedieninterface ist zu verriegeln, damit die Zeichen 
$01 etc. gelesen werden können. Maximale Textlänge sei 
40. und beim ersten auftretenden Carriagereturn soll 
der Xfer beendet werden. (Das Zeichen CR steht dann als 
letztes im Puffer). Wir codieren zusätzlich zum Univer- 
salvorspann: 

MODMCR EQU $20 End Xfer with 1st carriagereturn. 

MODMNE EQU $02 'No echo' (Only ACIA/SCC) 

MODMSC EQU 504 Suppress command-interf. (only ACIA/SCC) 

MOVEQ =40,D1 D1.L = lenoth of info in CE 

FETCE ® load Al by RTOS-UH 


MOVE.B =2,LDNIO(Al) queue-number is 2 
ODMCR+MODMSC+MODMNE+$9,MODE (Al) Xfer mode setup 


MOVE =40,RECLEN(Al) Max. number of char's 

MOVE.B =2,FNAME+11(A1) ‘B' (buffered) instead of 'A' 

xIO Make the Xfer 

niaheke, Arbitary-code, command-if remains blocked. 

IOWA Wait until record ready (CR or 40 char's). 

* Die Daten liegen nun bereit. In RECLEN(Al) ist die Anzahl 
* Bytes zu finden. Auf BUADR(Al) die 4 bytes lange Adresse 
* des ersten Zeichens. Nach Auswertung der Daten: 

RELCE Release CE. Al invalid from now on! 

* Anmerkungen zum hier demonstrierten Beispiel: 

* Damit das Bedieninterface wieder 'befreit' wird, muß ein 
* ACIA2-XIO ohne den 'suppress command-if' mode folgen 
* 


oder der Terminalbediener drückt die 'break'-taste. 


FALL C. 
"Ausgeben und vergessen' eines Konstantenstring. 
Zusätzlich zum Universalvorspann codieren wir nun: 
CLR.L Di Length of textbuffer = ® 
FETCE Fetch a CE 


MOVE.L =textadr,BUADR (Al) Start adr of text to write 
MOVE.B =MODMOU+MODMCR+$®,MODE(A1) Output until CR 


BSET =STABRE,STATIO(A1) "Verschrottungsbit' 

MOVE =100,RECLEN (Al) Max. number of char if no CR 
MOVE.B =2,LDNIO(A1) queue-number 

CLR.B FNAME+11(A1) Set to Ax 

xXIo Al no longer valid! 


Die Ausgabe läuft, das CE ist für diese Task nun nicht 
mehr erreichbar, da nicht festzustellen ist, ob es noch 
# existiert 
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ERGÄNZUNG EIGENER E/A-TREIBER Eigene E/A-Treiber 


Im Betriebssystem RTOS-UH sollen alle Peripheriegeräte, bei 
denen Wartezeiten einmalig > 0.6 ms bzw. wiederholt > 80 us 
anfallen, durch sog. 'Systemtasks' (Treibertasks) betreut wer- 
den. Dabei wird durch die Usertask mit dem 'XIO'-Trap eine 
prioritätentengeordnete Warteschlange angelegt. Anschlies- 
send aktiviert XIO über eine 'LDN'-Tabelle die Treibertask. 


Für Peripherie, die dem Prozessor keine verwendbaren Zeitre- 
ste läßt, wird diese Konstruktion nicht benötigt. So wird 
z.B. über den VME- oder PIA-Bus mit SEND und TAKE direkt und 
ohne Taskwechsel kommuniziert. 


Wenn Sie Ihr System mit weiteren Peripheriegeräten ausbauen, 
und dafür keine der im RTOS-UH vorhandenen Treibertasks be- 
nutzt werden kann - z.B. neues WV24-Port , dann ist das Sys- 
tem in der hier angegebenen Weise zu erweitern. Die Aufgabe, 
die hierbei zu erledigen ist, gliedert sich in drei Phasen: 


1. Festlegung einer 'LDN' für das neue Peripheriegerät. 
Es gibt zwei verschiedene Ausgangspositionen: 


a) System soll fortan dauerhaft die neue Station enthalten: 
Boot/ROM-Erweiterung. Zweckmäßigerweise wird die nächste 
freie LDN belegt. Geht man nach oben darüberhinaus, so wird 
vom Nukleus beim Autolinking die LDN-Lücke für nachladbare 
I/O-Tasks verwaltungstechnisch aufbereitet. (Tabellenplatz) 
Die Station muß mit einem üblichen alphanumerischen Namen 
versehen werden, der die Verwendung durch das Bedieninter- 
face ermöglicht. Dazu ergänzen wir eine 'Scheibe' vom Typ 
No. 9. Die Stationseigenschaften werden mit einer Scheibe 
des Typs 10 vorbesetzt. (Analog zum 'SD'-Bedienbefehl). Die 
notwendigen Informationen sind unter E-VII "Scheibenstruk- 
tur' zu finden. 


b) System soll nur vorübergehend um die neue Datenstation 
erweitert werden: In diesem Falle müssen Sie eine LDN aus 
einer der vorhandenen Lücken wählen. Die Station ist bei 
dieser Form der Erweiterung allerdings immer nur als 'Lx' 
vom Bedieninterface errreichbar. Die Stationseigenschaften 
können nur mit Hilfe des SD-Bedienbefehles besetzt werden. 
Außerdem kann bei dieser Form der Erweiterung nur die Lauf- 
werksnummer ® angesprochen werden. 


2. Codierung einer I/O-Task für die gewählte Warteschlange. 


Der Taskname ist frei wählbar. Allerdings sollte bei einer 
Boot/ROM-Erweiterung dieser mit '#' beginnen, um die Task 
vor dem 'UNLOAD' zu schützen. Beim Entladen einer I/O-Task 
ist in jedem Fall besondere Vorsorge zu treffen, sodaß der 
Eintrag in der LDN-TID-Tabelle des Nukleus wieder gelöscht 
wird. 
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Eigene E/A-Treiber 


Damit der von irgendwo exekutierte 'XIO'-Trap sein Communi- 
cation-element (siehe dazu Abschnitt E-III) weiterleiten 
kann, benötigt er eine Zuordnungstabelle, die die LDN in 
den Task-Identifier (TID) umwandeln kann. Beim Autolinking 
baut der Nukleus diese Tabelle auf. (Siehe Scheibe 1). Bei 
den nachmontierten Tasks müssen Sie (oder jemand anders) 
diesen Eintrag selbst erledigen. Nicht belegte Tabellen- 
plätze sind durch den Eintrag einer (4-Byte) O markiert. 


* Task-head mit Namen,Priorität etc. (s. D-III) 
* Oder: Scheibencode der Scheibe no. 1 (siehe E-VII) 
« Hohe Priorität wird empfohlen, z.B. -1 oder 9 
* 
* System-traps needed here: & 
ODPC OPD $4E43 Dispatcher-caller ud 
OFF OPD S4EAF All interrupts 'off' ” 
RELCE OPD $4E Release Comm.element * 
TOoQ OPD S4AE4D Take of queue * 
TERMI OPD S4aE&41l Terminate (sel£) . 
* 
* Other displacements inside RTOS * 
BLOCK EQU 524 Block-byte of a Task * 
BLKBSU EQU 4 Suspend-bit-no. in BLOCK * 
TID EQU $802 Actual running Task ident.* 
* 
* Interrupt-buffer “ 
* a) Platz über Scheiben 2 ... 8 (s. E-VII) % 
* b) Platz im RAM freihalten: “ 
IRLINK DC 0,0,0,0,..0 as used by ir-process “ 
* 
START MOVEQ =1dn,D1 Eigene LDN nach D1 * 
nur b) MOVEA.L $852,Al Tab-pointer LDN-TID * 
nur b) MOVE.L TID,ldn*4(Al) Montieren der I/O-Task* 
TOoQ Take off queue “ 
TERMI Wird exekutiert, wenn leer* 
nur a) MOVEA.L $832...$84A,A® Buffer-pointer IDPx * 
nur a) LEA OFFS(A0O),AdO benutzten Ber. auslassen* 
nur b) LEA IRLINK,ADO access to ir-link-block * 
MOVE.L A1,(AO)+ Comm.element for ir * 
MOVEA.L TID,A2 Link to Task-identifier * 
MOVE.L A2,(AO)+ fuer ir-process * 
CLR (AO)+ Character-index reset * 
Frafens hier möglicherweise andere* 
erabie Interruptunkritische Op. * 
* * 
* Beginn der unteilbaren Sequenz: * 
* 
OFF Alle Unterbrechungen sperr* 
Bee (coupler) Interrupt-process mit Para- 
iarefel metern versorgen, Hardware 
< RR '"scharf' machen, IR-PC hf 
ae versorgen etc. “ 


nur b) MOVE.L =IRENT,IVEC Interr. vect. anschließen 


use !l  privilegierter Mode !!* 
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Eigene E/A-Treiber 


BSET =BLKBSU,BLOCK(A2) Task suspendieren 
ANDI =$D8FF,SR Interrupts einschalten * 
ODPC Dispatcher starten. * 
* * 
* Die Task schläft nun bis der IR-Process sie * 
® wieder freischaltet. * 
x x 
RELCE Freigabe des Comm.elem. * 
BRA START nächstes El. aus Schlange * 


Codierung des Interruptprozesses. 


Um Fehler innerhalb von Interruptanwortroutinen (wrong op- 
code, wrong adäress etc.) auf eine interruptspezifische Art 
in einen geordneten Rückfall ableiten zu können, gibt es 
die Zelle IID ($7FE) = "Interruptidentifier'. Der Nukleus 
erkennt an IID, über welchen Vektor der aktuelle Prozeß ge- 
gangen ist und ermittelt damit die Ansprungadresse für den 
Fehlerfall. Dazu dient ein vor der Einsprungstelle liegen- 
des relativiertes 16-Bit Wort. Dieses Wort enthält die Dif- 
ferenz zwischen Fehlereinsprungort und regulärer Einsprung- 
adresse. Die 'Malfunction'-routine muß dafür sorgen, daß 
z.B. alle Register restauriert werden und ggf. der Inter- 
ruptverursacher (Coupler etc.) ersatzweise befriedigt wird. 


Klar, daß die Zelle IID zunächst gerettet werden muß, denn 
der Interruptprozeß könnte ja einen anderen unterbrochen 
haben, dessen Vektorlink am Ende wiederhergestellt werden 
muß. 


Typische Aufgabe des Interruptprozesses kann z.B. die Be- 
handlung des Dateninterrupts sein. Nach Abschluss der 
Datenübertragung muß die suspendierte Task wieder freige- 
geben werden. Damit man auf Interruptebene zu deren Block- 
byte Zugriff erhält, wurde bereits auf Taskebene vor der 
Selbstsuspendierung die Adresse des Blockbytes im Inter- 
ruptdatenblock abgelegt. 


Die Benutzung von Traps und BSR-Befehlen ist wegen der da- 
mit verbundenen Paralysierung des 'Rückfallmechanismus' 
gefährlich!! BSR/RTS kann durch LEA ...,Ax und JMP (Ax), 
eine obendrein schnellere Lösung, ersetzt werden oder aber 
man rettet nach dem IID- und Registersave das System-A7 in 
ein eigenes Register, um es bei Malfunction als erstes wie- 
der auf den korrekten Wert zu bringen. 


Es dürfen allenfalls 'harmlose' Traps ohne Änderung zentra- 
ler Systemdaten benutzt werden, etwa CSA, QSA etc. 


Jedes Verlassen der Interruptroutine darf nur über den 
Dispatcherausgang erfolgen, damit während der IR-prozedur 
aufgelaufene Taskzustandsänderungen nicht 'verschlafen' 
werden!! Verwenden Sie also nie den RTE-Befehl außer in der 
unten beschriebenen Umgebung. 
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Die Interruptantwortroutine liegt typischwerweise im glei- 
chen Programm wie die Grundebenentask, bedenken Sie aber, 
daß zum Zeitpunkt des Interrupteintrittes irgendein völ- 
lig fremder Prozeß die Prozessorregister etc. besitzt. Sie 
müssen größte Aufmerksamkeit darauf verwenden, daß der un- 
terbrochene Prozess korrekt fortgesetzt werden kann!! 


Schematischer Aufbau der IR-Antwortroutine: 


IID EQU STFE Interrupt-identifier “ 

DPC EQU $800 Dispatcher-call flag . 
x 

DC IRMAL-IRENT Rückfall-link ui 

IRENT MOVE IID,-(A7) Rette den alten Ir-Ident.* 

MOVE =IVEC,IID z.B. $200 nach IID * 

MOVEM.L are AT) Save Registers used * 

nur b) LEA INK,AO Parameter-feld anschl. R 

nur a) MOVEA.L 2...$84A,A0O IDPx laden “ 

nur a) LEA S(A0),AO fremden Bereich skip* 

Senders Von der Task-grundebene * 

lerahskeyars angelegte Daten, z.B. die* 

ua eelaget Adresse des CE, sind ueber 

Bragsakerainne xx(A0) erreichbar ® 

MOVEA.L (20), Al access to comm.elem. k 

MOVE.B erg aan Daten ueber Coupler * 

* 

cMP Seirieinnein Test ob Transfer fertig * 

BEQ 1b12 Sprung wenn fertig .) 

* 

exit MOVEM.L (A7)+,DO®... Register rückladen * 

MOVE (A7)+,IID Alten Inter. Id. holen * 

ORI =$700,SR All IR off * 

TsT DPC Dispatcher-call? “ 

BMI.S lb11 B:No process switching * 

RTE normal exit % 

lb11 JMP $906 Call Dispatcher + Exit & 

* a 

1b12 MOVEA.L 4(AO),AO access Task-id * 

BCLR =BLKBSU,BLOCK(A®) continue task u 

SUBQ =1,DPcC MARK DSP-CALL * 

MOVEM.L (A7)+,DO... Reload registers a 

JMP 5906 Call dispatcher * 

* * 

IRMAL asRısıa Controller totschlagen * 

BRA exit Exit by Disp. test « 


Andere Konstruktion ohne Interrupts. 


Liefert der Coupler keine Interrupts, so kann auf der Ebene 
der Task selbst das Communicationelement bearbeitet werden. 
Um Verluste durch Abfrageschleifen zu vermeiden, bediene 
man sich einer "durchlöcherten' Schleife, etwa, indem die 
Task alle 4 msec nachschaut und sich bei fehlender Bereit- 
schaft des Couplers erneut selbst suspendiert für 4 msec. 
Bei hohen Datenraten geht es natürlich auch ganz ohne Sus- 
pendierung der I/O-Task. 
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Anmerkungen zum Beispiel. 


Es handelt sich um ein einfaches Programm, welches einen 
normalen CE-Transfer zu einem ACIA-Baustein gestattet. Zur 
Demonstration wurde auch die typische ausgereizte Sequenz 
zur Erkennung von CR, LF oder EOT angegeben. 


Das Maschinenprogramm braucht nur noch zugeladen zu werden. 
Die Task ist einmal zu aktivieren, damit der Tabellenein- 
trag erfolgen kann. (Wegen leerer Schlange keine Aktion). 
Anschließend ist über SD L5 xx das Port zu parametrieren. 
Bevor die Task mit UNLOAD entfernt wird, muß entweder über 
eine Hilfstask oder mit Hilfe des SM-Befehles (Vorsicht! 
sorgfältig rechnen) wieder eine Null an Stelle des TID ein- 
gesetzt werden. (4 Byte Null) 


AKKU KKÄK AHA HE EU AK RR A AK RA KR EA 


x “ 
* Demonstrationsprogramm "eigene E/A' * 
ia HIER: Nachmontierte Version “ 
" “ 
a Taskname: Queue5, LDN=5 * 
LDN EQU 5 For assembler % 
Kun ann ana ann ann nn nn nn nn nn nn nn nn nn ” 
* TASK-HEAD FOR RTOS-UH: r 
* * 
DC.B 0.0,0,0,0,0,0,0,0,1, 'QueueS5' & 
Priorität * 
Minimum WSP “ 
for System « 
also priority & 
Start-PC % 
‚,0,0,0,0 * 
at least:64 Bytes Ö * 
-— ._nnn nn nn nn nun on nn nn nn nn %* 
k Coupler- and interrupt- addresses: a 
” *ı* Depending upon actual hardware *** ® 
BF —— nn nenn nun nn “ 
ACST Statusreg ACIA * 
ACDT EQU $50043 Datareg ACIA * 
IVEC EQU 578 Interrupt-link * 
ee ee N En LES VERNECE EIETERN RS Re x 
Sg System traps: % 
QDPC OPD S$4E43 Dispatcher-caller * 
OFF OPD $4E4F All interrupts off * 
RELCE OPD $4E49 Release comm.elem. * 
TOoQ OPD $4E4D Take off queue ii 
TERMI OPD SaE4l Terminate self x 
RTOS-UH Dec. 1986 E-VI-5 


” 
N 
I 
I 
ı 
1 
ı 
I 
\ 
| 
' 
ı 
| 
I 
I} 
t 
1 
! 
| 
I 
I 
I 
' 
t 
' 
’ 
1 
ı 
I 
t 
t 
I 
' 
I 
! 
I 
' 
' 
I 
I 
t 
[| 
1 
j 
[8 
ı 
* 


* Other displacements # 
BLOCK EQU $24 Block-byte * 
BLKBSU EQU 4 Suspend-bit number * 
IID EQU STFE Iinterrupt-identif. * 
DPC EQU $800 Dispatcher-call Flg * 
TID EQU $802 Actual running Task * 
LDNTID EQU $852 ldn->TID Table = 
DISEX EQU $906 Dispatcher-Exit * 
* In communication-element: ke 
RECLEN EQU 524 Record-length * 
MODE EQU $28 Mode-byte * 
MODMCR: EQU $20 Stop on carriage rtn* 
MODMLF: EQU $10 Stop on Line-feed * 
MODMEO: EQU 508 Stop on EOT * 
BUADR EQU $20 Adress of text * 
Ä---- nn nn nn nn “ 
IRLINK DC.L 10) Actual Text-address * 

DC.L 0 Task-ID of this Task* 

DC [v) Length-control-word * 


* 
I 
ı 
ı 
' 
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! 
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1 
ı 
I 
‘ 
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* “ 
* TASK - CODE * 
x * 
* * 
START MOVEA.L LDNTID,AO Table-address % 
MOVE.L TID,LDN*4(ABd) Nachmontage LDN * 
MOVEQ =LDN,D1 Own ldn * 
TOoQ Inspect the queue * 
TERMI Executed if empty * 
LEA IRLINK,AO® For rapid access & 
MOVE.L BUADR(A1), (Ad)+ Start adr of Text * 
MOVEA.L TID,A2 Task Id for access * 
MOVE.L A2, (AO) + save for ir-process * 
* “* 
x Determine number of chars to transmit % 
* * 
MOVE RECLEN (A1l),D2 Assumed length * 
MOVEQ =MODMCR+MODMLF+MODMEO,D6 Testmask * 
AND.B MODE(A1),D6 Quick check * 
BEQ.S AO6 b: no mode specified* 
MOVEA.L BUADR(A1l),A2 Text-org * 
CLR D3 Reset Record-length * 
A02 cMP D2,D3 Reclength test * 
BGE.S A06 b:all done * 
ADDQ =1,D3 Move counter * 
MOVE.B (A2)+,DO Inspect the byte * 
MOVEQ =MODMCR,D7 Test-mask * 
SUB.B =$0D,D® Test for Carr. rtn * 
BGT.S AO2 b: not cr,lf or eot * 
BEQ.S AO4 b:is: cr * 
MOVEQ =MODMLF,D7 Testmask * 
ADDQ.B =$0D-SOA,DO Test for LF * 
BEQ.S AD4 b:is LF * 
ADDQ.B =$0A-$94,D® Test for EOT % 
BNE.S AO2 b:not eot * 
MOVEQ =MODMEO,D7 Testmask * 
Ada AND.B D6,D7 Mode-match? * 
BEQ.S AO2 b:no match * 
MOVE D3,D2 result length x 
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IRCOD1 


IRCOD2 
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IRCOD4 


IRMAL 
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MOVEA.L 4(A0O),AO 
BCLR 


=BLKBSU, BLOCK (AD) 


Access task-id 

Continue 

Flag dispatcher-call 
reload reg's 

Recall old Inter.ID 

Exit by dispatcher 


MOVE D2,(A0)+ Store length * 
LEA IRENT,A3 Ir-entry address * 
OFF Disable interrupts * 
MOVE.B =$35,ACST New coupler status * 
MOVE.L A3,IVEC Ir-vector connection* 
BSET =BLKBSU,BLOCK(A2) suspend the task* 
ANDI =$D8FF,SR Interrupts 'on' * 
ODPC Call dispatcher * 
Now the task is suspended for last interr.* 
RELCE Release Caller * 
BRA START Repeat queue-op. * 
A 

Be en ne een EEE EEE ER ETEHER. 
* 

INTERRUPTE- BROCENS * 
N 

DC IRMAL-IRENT Malfunction * 
MOVE IID,-(A7) Save old Interr. ID * 
MOVE =IVEC,IID For Malfunc process * 
MOVEM.L AO/A1,-(A7) Save registers “ 
LEA IRLINK,AO® Link to parameters * 
SUBQ =1,8(A0) Counter control “ 
BMI.S IRCOD4 b:end of transm. * 
MOVEA.L (AO),Al Buffer-address * 
MOVE.B (A1l)+,ACDT Send data to periph.* 
MOVE.L A1,(A®) Restore new pointer * 
MOVEM.L (A7)+,AO/Al reload reg's * 
MOVE (A7)+,IID Recall old Inter.ID * 
ORI =$700,SR AI Ir off * 
TST DPC Is there any call ? * 
BMI.S IRCOD2 B:Yes there is K 
RTE Exit of Ir-process * 
JMP DISEX Exit by dispatcher * 
x 

End of transmission % 
MOVE.B =$15,ACST Switch coupler off * 
* 

“ 

* 

* 

* 

* 

x 

“ 

“ 

* 


SUBQ =1,DPC 
MOVEM.L (A7)+,AO/Al 
MOVE (A7)+,IID 
JMP DISEX 
Malfunction recovery-exit 
BRA.S IRCOD® 
END 
1986 
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RTOS-UH Autolink -- die Systemkonfigurierung 


Das Betriebssystem besteht aus einer Vielzahl kleiner Module, die 
vollkommen lageunabhängig sind. Die gegenseitigen Verbindungen 
zwischen den Modulen werden erst nach Einschalten des Systemes 
im Grundmodul, dem 'Nukleus', hergestellt. Dazu baut der Nukleus 
im unteren Speicherbereich ab $800 eine Vielzahl von Tabellen 
auf, in denen die Querbezüge ihren Niederschlag finden. Die Quer- 
bezüge werden durch Abtasten ('Scanning'’) eines vereinbarten E- 
PROM (oder RAM-) Bereiches aufgespürt. Signalmarke ist dabei die 
auf gerader Adresse beginnende Bytesequenz $AEBI1BF95, gefolgt von 
einem Wort mit einem ungeraden Vielfachen der Primzahl 37. 
Wir sprechen von der "Scheibe x’, wenn dieses Wort genau den 
Wert (x*2+1)*37 besitzt. 


Die Signalmarke ist so gewählt, daß sie im normalen Assembler- 
code sowie im VCP-code nicht vorkommen kann. Man hüte sich aber, 
ungenügend vorbesetzte Speicherbereiche abtasten zu lassen. Auch 
besteht eine gewisse Gefahr, wenn arosse Datenfelder im Betriebs- 
systembereich abgelegt werden sollen. 


Das 'Zusammenbauen' eines Betriebssystemes besteht nun einfach in 
einer möglichst lückenlosen Hintereinanderreihung der einzelnen 
Module ('Scheiben') und dem Besetzen des Scanbereiches in den da- 
für vorgesehenen Zellen des Nukleus. 


!! Das System startet auf der Adr. Nukleus+$18 im Supervisormode. 


--> Der Scanbereich muß immer mit der Anfangsadresse des Nukleus 
beginnen. Er kann absolut oder relativ zur Nukleusanfangs- 
adresse definiert werden. Dabei sind zwei getrennte Bereiche 
möglich. Dies geschieht durch Eintragung von 4 Byte-Adressen 
auf den Zellen Nukleus+$20. 


Bsp: Nukleus+$20 DC.L $500000001,$0000FFFF (relativ) 
+$28 DC.L $F60000,$F7FFFE (absolut) 
+$30 DC.L {0} Stop-marke 


Gesetztes LS-Bit heißt "relativ zum Nukleus’. In der ersten 
Sektion werden also 64 kB, in der zweiten 128 kB abgetastet. 
Fehlt der zweite Bereich, so ist Nukleus+$28 auf $00000000 
zu setzen. 


--) Denken Sie also bitte daran, daß bei einer Erweiterung des 
Systemes ggf. der Scanbereich im Nukleus angepasst werden 
muß. Dabei genügt es, wenn die letzte Signalmarke noch in- 
halb des Bereiches liegt, der Code darf also darüberhinaus- 
ragen. 


--) Beim Scanning darf kein Bus-Error auftreten, sonst läuft das 
System nicht an. 


Das kleinste denkbare System besteht nur aus dem Nukleus. Aller- 
dings leistet es nichts, außer daß die Task #IDLE dauernd läuft. 
Durch Hinzufügen einer oder mehrer Scheiben wird daraus entweder 
ein kleines reines Laufsystem oder ein komfortables Entwicklungs- 
system, je nach dem beabsichtigten Einsatz. 
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RTOS-UH Autolink -- Modifikation eines Systems 


Ein normal aufgebautes Entwicklungssystem unfaßt folgende 
Module: 


NURKLEUS Betriebssystemkern, enthält Speicherverwaltung, Task- 
management, stellt Systemtraps zur Verfügung 


ERROR Fehlerauswerter, ist für korrekte Auswertung und Aus- 
gabe von im NUK erkannten Fehlsituationen erforderlich 

SHELL Kommandointerpreter 

EDFM. Edit-File-Manager, verwaltet die unter den Datenstatio- 


nen ED und EDB angesprochenen Dateien und enthält die 
Datenstationen VI/VO 
IMP Implementierungsscheibe, enthält Treiber für serielle 
Schnittstellen und weitere Hardware-spezifische Teile 
ED Editor 


LOAD Lader 

MATH Mathe-Pack, enthält nicht elementare Gleitkommaarithme- 
tik (Sinus, Logarithmus etc.) 

HYP Hyperprozessor, bietet Laufzeitunterstützung für PEARL- 
Programme 

VCP Virtual-Code-Processor, erforderlich für Assembler und 
Compiler 

UHFM File-Manager für Massenspeicher (Floppy, Winchester) 

ASSEM Assembler 

COMP Compiler 


Sämtliche dieser Module sind aus Scheiben gemäß der in diesem 
Kapitel folgenden Beschreibung aufgebaut. 

Zusätzlich zu den Modulen umfaßt eine Implementation die Integra- 
tion eines Schutzmechanismus, der Veränderungen des Codes im 
Eprom verhindert. 


Die Implementation eines Systems umfaßt die Erstellung des 
(rechnerspezifischen) IMP-Moduls, die Zusammenstellung der ein- 
zelnen Module in geeigneter Reihenfolge sowie die Festlegung des 
zu schützenden Code-Bereiches. Es sind hierbei verschiedene 
Systemkonfigurationen mit unterschiedlichem Leistungsumfang denk- 
bar: 
- Minimalsystem 
umfaßt nur das Modul NUK. Das Betriebssystem läuft vollständig, 
alle Traps sind angeschlossen, Schnittstellen sind nicht an- 
sprechbar. 
Ein derartiges System hat praktisch keinen sinnvollen Einsatz, 
da Kommandointerpreter und Schnittstellentreiber fehlen. Es 
kann jedoch Programme, die keine Unterstützung durch EDFM, MATH 
und HYP benötigen, aus dem EPROM heraus exekutieren. 
- Laufzeitsystem für Assemblerprogramme 
umfaßt NUR, ERROR, SHELL und IMP. Das System kann nach außen 
kommunizieren, Kommandos empfangen und exekutieren. 
Das System leistet ähnliches wie das Minimalsystem; es ist 
jedoch von außen steuerbar. 
- komplettes Laufzeitsystem 
ist erweitert um EDFM, MATH und HYP, ggf. UHFM. Das System kann 
sämtliche in PEARL oder Assembler erstellten Programme bearbei- 
ten und ggf. den Massenspeicher verwalten. Da der Lader noch 
nicht vorhanden ist, können nur EPROM-residente Programme 
ausgeführt werden. 
- potentielles Entwicklungssystem 
ist erweitert um LOAD und ED und VCP. Das System kann Programme 
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von Massenspeicher oder Schnittstellen laden und exekutieren. 
Damit kann das System beliebige Programme ausführen. 

- komplettes Entwicklungssystem 
enthält zusätzlich Compiler und Assembler, entweder EPROM- 
resident oder von Massenspeicher nachgeladen. Hiermit ist der 
volle Leistungsumfang eines Standard-RTOS-UH/PEARL-Systems 
erreicht. 


Bei einer regulären Implementierung eines Entwicklungssystems 
werden alle Module bis auf COMP und ASSEM vom Schutzbereich 
erfaßt, d. h. es ist möglich, das komplette Entwicklungssystem 
derart zu modifizieren, daß nur ein potentielles Entwicklungssys- 
tem EPROM-resident zur Verfügung steht. Je nach Hardwar Kap. 
F) kann dies durch Erse :n der Compiler- und Assembler-EPROMs 
durch andere EPROMs (die B. Anwenderprogramme enthalten) oder 
durch Überschreiben von Compiler und Assembler in den EPROM's mit 
Anwenderprogrammen geschehen. 


BEISETLENL® 


Betrachten wir als Beispiel ein System mit folgender Hardware- 
Konfiguration: 
Prozessor: 68000 
EPROM-Bestückung: 4x 27256, organisiert in zwei Bänken ä 16 bit 
EPROM-Adressen: Bankl : $F80000 - $F3ÖFFFE 
Bank2 : $SF90000 - SFIYFFFE 
Bei einer derartigen Konfiguration enthält im 
Regelfall Bankl das potentielle Entwicklungs- 
system (mit Schutzmechanismus) und Bank2 Compi- 
ler und Assembler (ungeschützt). 
Compiler und Assembler mögen die Adressen 
$0000 - STECC in Bank2 (relativ zu $F90000 
belegen) 


AUFGABE 1 


Als einfachen Einstieg betrachten wir die Umdefinition der 
Eigenschaften einer Datenstation. Erforderlich hierzu ist Kennt- 
nis der LDN dieser Station (s. Tabelle Kap. A-I-10 und ggf. Kap. 
F) sowie der Device-Parameter (s. Befehl SD, Kap. B-II). 

Die zweite serielle Schnittstelle (A2:), die vom System standard- 
mäßig als Datenschnittstelle mit den Device-Parametern $0B00 
vorbesetzt wird, sei beim Kaltstart des Systems als Terminal- 
Schnittstelle mit den Device-Parametern $3300 zu initialisieren 
(Standard bei Al:). 

Erforderlich hierzu ist die Erstellung einer 10-er Scheibe gemäß 
der Beschreibung am Ende dieses Kapitels. 


wir kodieren hierzu in Assembler 


RORG 0) relativierende Assemblierung 
DC SAEB1 erstes Wort der Signalmarke 
DC SBF95 zweites Wort der nv 

De (10%2+1) *37 Kennung Scheibe 10 

DC 2 LDN der A2-Schnittstelle 
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DC $s3300 gewünschte Device-Parameter 
DC o Endekennung dieser Scheibe 


END Ende Assemblierung 


Wird dieser Text assembliert, so erhält man 

a) in der Assemblerliste eine auf Adresse O0 beginnende Speicher- 
belegung $AEBl, $BF95, $0309, $0002, $3300, $0000 

b) die hierzu gehörenden S-Records in der CO-Datei des Assemb- 
lers. 

Wird der generierte Code in der EPROM-Bank2 ab Adresse S$TECC 

abgelegt, so übernimmt das System die gewünschte Device-Parame- 

trierung beim Kaltstart. 


AUFGABE_2 

Als etwas aufwendigere Aufgabe betrachten wir die Einbindung 
eines PEARL-Programmes in das System zur Ausführung als Autco- 
start-Task nach Kalt-und Warmstart des Systems. Gleichzeitig 


sollen Compiler und Assembler aus dem System entfernt werde 
den verfügbaren EPROM-Platz zu vergrößern. Voraussetzung hierfür 
ist das Vorhandensein des 'PROM'-Befehls. 


a) nicht elegant, aber einfach 

Ist das PEARL-Programm geschrieben und übersetzt, so laden wir es 
(möglichst mit Size-Angabe gemäß Compilerbilanz)an die 
Speicheradresse, auf der es im späteren Betrieb ausgeführt 

werden soll. Anschliessend kann mit der Anweisung 


AUTOSTART modulname,taskname 


die gewünschte Task in eine Autostart-Task umgewandelt werden. 
a Bitte jetzt nicht 'ABORT' betätigen - die Task würde sonst 
als Autostart-Task sofort starten --- 

Mit dem Befehl 


PROM modulname* 


können wir nun (s. Beschreibung Befehl PROM) S-Records erzeugen. 
Diese S-Records sollten vom EPROMMER ab Adresse $0 der Bank2 in 
einen EPROM-Satz programmiert werden. Werden die so program- 
mierten EPROMs statt der Compiler- und Assembler-EPROMs einge- 
setzt, so startet das System sofort nach Kalt-oder Warnmstart 
unsere Autostart-Task. 

Unser PEARL-Programm wird nun allerdings nicht aus dem EPROM 
heraus exekutiert, sondern beim Kaltstart auf die Adresse 
kopiert, auf der wir es beim PROMmen geladen hatten. 


b) eleganterer Weg 

Nach einem ersten Compilerlauf merken wir uns die Größenangabe aus 
der Compilerbilanz ('$xxxx BYTES'), z. B. E78. 

Für einen zweiten Compilerlauf fügen wir vor den Anfang des PEARL- 
Moduls die Zeile 


SC=$E78,CODE=$F90000, VAR=$3000; 
» in den Quelltext ein. Der Compiler generiert nun Code, der aus dem 


EPROM heraus exekutiert werden kann (beginnend auf Adresse 
SF90000), lediglich der Modulvariablenbereich muß hierzu im RAM 
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vorhanden sein. Nach dem Laden (auf beliebige Adresse) können wir 
mit der Anweisung 


AUTOSTART modulname,taskname 


die gewünschte Task in eine Autostart-Task umwandeln. 
Mit dem Befehl 


O ED:SR;PROM modulname* 


können wir nun (s. Beschreibung Befehl PROM) S-Records erzeugen. 
Im File ED.SR erscheinen zwei SO .. S2 .. SI Blöcke (z. B. Zeile 
1 - 27 und Zeile 28 - 67), die wir mit der 'SC'-Option des COPY- 
Befehls in getrennte Dateien kopieren (zwei Durchgänge). 


Die S-Records des zweiten Blocks müssen mit einem EPROMmer ab 
Adresse $0 der Bank2 (entspricht der physikalischen Adresse 
SF90000, s. "CODE='-Angabe) in einen Satz EPROMs programmiert 
werden. Die S-Records des ersten Blocks können in einen beliebi- 
gen, ausreichend großen Freiraum des EPROM-Satzes gebrannt werden. 


Haben wir sichergestellt, daß unsere EPROM-Daten noch vom Scan- 
Bereich des Systens erfaßt werden (ggf. Nukleus+$20 aufwärts 
ändern), so können wir unsere EPROMs statt Compiler und Assembler 


einsetzen. Beim Kaltstart des Systems richtet der Nukleus nun im 

RAM 

a) den Modulvariablenbereich, beginnend bei Adresse $3000 gemäß 
der 'VAR='-Angabe, und 

b) Taskköpfe für alle Tasks unseres Moduls 

ein. Unsere Autostart-Task wird nach der Warmstartpase gestartet. 


AUFGABE 3 


Als aufwendigsten Fall betrachten wir die Einbindung eines E/A- 
Treibers gemäß dem Beispiel aus Kap. E-VI. 


Zunächst kodieren wir einen Scheibenkopf für eine 1l-er Scheibe 
(Systemtask-Definition): 


DC $SAEB1,$BF95, (1*2+1) *37 

DC.B $01,$80 Normale Task als Betreu- 
ungstask 

DC.B 'MYQUE ' Name der Task 

DC -J; sehr hohe Priorität 

DC.L $100 256 Byte Workspace nötig 
(je nach Bedarf, muß aber 
> $66) 

DC.L START-$S relativierte Startadresse 

DC ldn LDN wie im Beispiel 

DC o Endekennung für diese 
Scheibe 


Da wir unsere Routine im EPROM ablegen wollen, können wir 
eventuellen Speicherbedarf der Interrupt-Routine nicht über DC- 


Anweisungen reservieren. Daher müssen wir beim Kaltstart einen 
Speicherbereich als Interrupt-Puffer anfordern, d. h. als Spei- 
cherbereich, der nur unserer Interrupt-Routine zur Verfügung 


steht. Wir entnehmen Kap. F die schon belegten Interrupt-Puffer 
und wählen einen der freien Interrupt-Puffer.In diesem Beispiel 
verwenden wir den IDP5. 
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Zur Anforderung kodieren wir daher eine 6-er Scheibe: 


DC SAEB1,SBF95, (6*2+1) *37 6-Scheiben-Marke 
DC 100 z. B. 100 Byte Puffer 


Das System reserviert hierdurch 100 Byte Speicherplatz. Die 
Adresse des ersten Bytes dieses Speicherbereiches finden wir nach 
dem Kaltstart des System auf der Adresse $342. 


Weiterhin soll unsere selbstdefinierte Datenstation auch unter 
einem Namen (Mnemo) vom Bedieninterface her erreichbar sein (von 
der PEARL-Ebene her ist unsere Datenstation nur über 
LD/ldn,drive/ erreichbar). 

Wir kodieren daher weiterhin eine 9-er Scheibe: 


DC $SAEB1,$BF95, (9*2+1)*37 9-er Scheiben-Marke 

DC.B "MQ' Mnemo 

DC.B ldn+$80 LDN und Textende-Markier- 
ung 

DC.B {6} Laufwerksnummer, wir neh- 
men hier drive O® 

DC.B 0 Ende der Scheibe 


und haben hiermit den Mnemo-Anschluß installiert. 


Wollen wir auch noch Eigenschaften der Datenstation vorbesetzen, 
so können wir dies mit einer 10-er Scheibe (s. Aufgabe 1) tun. 


Sollte unsere Datenstation über einen Peripheriebaustein mit der 
Außenwelt kommunizieren, so muß dieser Baustein im Regelfall beim 
Warmstart (Abort, oder nach der Reset-Kaltstart-phase) initiali- 
siert werden. Hierzu kodieren wir eine 15-er Scheibe: 


DC $AEB1,$BF95, (15*2+1) *37 

aealee Maschinenkode zur Initia- 
lisierung 

RTS Rücksprung 


Der Nukleus springt diese Code-Sequenz im Supervisior-Mode an. 
Bei der Erstellung des Maschinencodes müssen wir die bei der 
Beschreibung der Scheibe gemachten Einschränkungen beachten. 

Nun können wir mit der Programmierung der Datenstation gemäß dem 
Beispiel aus Kap. E-VI beginnen: 


START MOVEQ =1ldn,D1 Maschinencode wie im 
ERRCHE Beispiel 
RELCE BRASTART 


Da der von unserer Datenstation angesprochene Peripheriebaustein 
Interrupts auslösen kann, müssen wir noch einen Interrupt- 
Antwortroutine erstellen. Hierzu kodieren wir zunächst eine 14-er 
Scheibe: 


DC SAEB1,$BF95, (14*2+1)*37 Kennmarke 

DC $64, IRENT-$-2 setzt den Autovektor für 
den Level-1-Interrupt auf 
unsere Interrupt-Routine 

DC (0) Endemarke 


wobei wir annehmen, daß unser Peripheriebaustein nur einen Level- 
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l-Autovektor-Interrupt erzeugen kann. Selbstverständlich müssen 
wir hierbei die Eigenschaften der Hardware kennen und wissen, 
welche Interruptvektoren uns zur Verfügung stehen. 


Nun können wir den eigentlichen Interrupt-Prozeß wie im Beispiel 
aus Kap. E-VI kodieren: 


DC IRMAL-IRENT Rückfall-Link 
IRENT MOVE IID,-(A7) Rette den alten IR-Ident. 
ee Maschinencode wie im 


Beispiel, merke: Inter- 
rupt-puffer über $842 


erreichbar 
ERMAR sen. wie im Beispiel 
Damit ist der gesamte Code für unsere Datenstation erstellt. Wir 


brauchen nur noch zu assemblieren und können den erhaltenen Code 
ins EPROM programmieren. 

Beachten wir, daß ggf. der Scan-Bereich des Nukleus angepaßt 
werden muß, um alle Scheibenköpfe zu erfassen, und haben wir bei 
der Programmierung darauf geachtet, daß unser Programm frei im 
Speicher verschieblich ist (keine absoluten Sprünge etc.), so 
sollte unsere Datenstation einsetzbar sein. 
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SYSTEMTASK-DEFINITION Scheibe 1 


Signalmarke: SAEB1,$BF95,$006F (Scheibe 1) 


Seite 1 von 2 


Bytes hinter der Signalmarke: 


Type: 


--) 


Class: 


Bsp. 


so Type (s.u.) 

sı Class (s.u.) 

Ser ur Name-info 

SB o “= 89 Priority 

SA: === SD Size of required Workspace, 4 bytes. 
SE == SE Start-PC minus location of this word. 
SEO ua SELL) Only if class is $80 or $01: 'LDN'. 
$10 (or $12) Type (next task) 

$11 (or $13) Class (next task) 


Start-PC relative or LDN of last task. 
$0000 Stop-marker this slice. 


Ist das spätere 2. Byte des Typwortes im RTOS-UH. 


501 Normale Task. 

sel Residente Task. 

Sal Normale Task mit Autostart. 

scı1 Residente Task mit Autostart. 

andere nu cht er yaubt, E83 8 


Gibt an, welche Sonderform der Task vorliegt. 


s00 Normale Task. 
so1 Bedieninterface für LDN ($10 ..$11, s.o.) 
$02 Die Errortask des Systemes. 
$80 Eine I/o-queue-Betreuungstask für die 
Warteschlange der LDN auf $10 .. $11l. 
MSB der LDN null oder 2. LDN (z.B. VI/VO) 
andere nicht emlaubt, wesewmv 


Es darf im System nur eine Errortask existieren. Ein Aus- 
tausch der standardmäßig vorhandenen Error-task ist nur bei 
sehr kleinen reinen Laufsystemen sinnvoll - etwa um eine 
LED im Fehlerfall aufleuchten zu lassen etc. Die Übergabe- 
daten finden sich im ringförmigen Errorpuffer des Systemes. 


Bei den I/O-Tasks wird der entsprechende Anschluß für den 
Trap XIO automatisch hergestellt. Zum Bekanntmachen des 
Stationsnamens und der Eigenschaften sind besondere Schei- 
ben vorgesehen. 


DC SAEB1,SBF95, (1*%2+1) *37 Signalmarke. 

DC.B $c1,0 Resident, Autostart, normal 

DC.B '#SELFT' 6 bytes name of task 

DC ST7FFO Extremely low priority. 

DC.L $66 Workspace ($66 is minimum!!) 

DC START-$ Start-PC rel. 

DC so Stop-marke für diese Scheibe. 
START MOVE =... Anfang der Systemtask. 
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SYSTEMTASK-DEFINITION (Forts.) Scheibe 1 


Signalmarke: 


name-info: 


Entweder 
oder 


Anmerkungen: 


Rev. 


RTOS-UH Dec. 


S$SAEB1,$BF95,$006F (Scheibe 1) 


Seite 2 von 2 


genau 6 ASCII-Bytes (wie im Beispiel) 
relativierter 4-Byte-Zeiger auf den Namens- 
string, der durch $FF beendet wird. In diesem 
Fall haben die restlichen 2 Bytes keine Bedeu- 
tung, müssen aber angelegt werden. Die Relati- 
vierung erfolgt über DC.L Textadr-$ 


Alle residenten Systemtasks erhalten bereits 
beim Kalt- oder Warmstart ihren Taskworkspace 
im Bereich unterhalb des dynamisch verwalteten 
Speicherbereiches. Damit soll der Verwaltungs- 
aufwand reduziert werden. 


Tasks mit gesetztem Autostart-bit (wie im Bsp.) 
laufen beim Aufsetzen des Systemes unter Be- 
rücksichtigung der festgelegten Priorität so- 
fort los. Auch I/O-Betreuungstasks dürfen ggf. 
vom Autostart-typ sein, obwohl eine etwaige Pe- 
ripheriebaustein-Initialisierung in einer Warm- 
initialisierungsscheibe besser aufgehoben ist. 
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INTERRUPT-PUFFER-ANFORDERUNG Scheiben 2 .. 8 


Seite 1 von 1 


Signalmarken: SAEB1,SBF95, (x*2+1) *37 x=2,3,4,5,6,1,8 


Das System stellt einen Interruptpuffer für den Level (x-1) zur 
Verfügung des Systemprogrammierers. Dabei wird während des Auto- 
linking für jeden Level nach der größten Anforderung gesucht. Nur 
dieser Maximalwert wird berücksichtigt. Auf den Zellen "IDPy' 
legt das System einen 4 Byte Zeiger ab, der auf den Anfang des 
Puffers für den Level y zeigt. 


Wort hinter der Signalmarke: 2 Byte lange Puffergröße. 
Bsp: DC SAEB1,SBF95, (4*2+1) *37 Level 3 
DC 109 100 Bytes 


Falls nirgendwo im abgetasteten Bereich für den Level 3 eine grö- 
ßere Anforderung gefunden wird, so werden genau 100 Byte Puffer 
für den Level 3 bereitgestellt. 


--) Die Verwaltung der Displacements muß der Systemprogrammierer 
selbst übernehmen. Insbesondere dürfen bei Einbau dieser 
Scheibe schon angeforderte Zellen nicht benutzt werden. In 
Zweifelsfällen kann man aus den IDP-Differenzen im Zielsystem 
ablesen, ab welchen Displacements Platz definiert werden 
kann. (Im obigen Bsp: Inhalt IDP4 - Inhalt IDP3 = Puffergr.3) 


IDP1=$832, IDP2=$836, IDP3=$83A, IDP4=$83E, IDP5=$842, IDP6=$846, 
IDP7=$84A 


Beispiel zur Verwendung des Interruptpuffers: 


HILFI1 EQU 30 Start-displacement 
HILFXY EQU 34 Irgendeine Variable 
SIZE EQU 38 Letztes Byte auf displacem. 37 
* .. 
DC $AEB1,$BF95, (6*2+1) *37 Level 5 
DC SIZE 
Mi ira 
DC MALF-IRENTR Rückfallmechanismus 
IRENTR MOVE IID,-(A7) Save old Ir-Id. ($7FE) 
MOVE =Vectoradr,IID Neuer Interrupt vect. 
MOVEM.L AO-A3,-(A7) angenommenes Beispiel. 
MOVEA.L IDP5,A® Basiszeiger 
MOVE.L HILFXY(A®),... typ. Zugriff. 


---) Der Zeiger IDP1 wird im System zum Löschen des gesamten In- 
terruptpuffers (bis zum Ende des IDP7) bei jedem Warm- oder 
Kaltstart benutzt, darf also nicht vom Programmierer 'verbo- 
gen' werden. Theoretisch würde ein einziger IDP für alle In- 
terrupts genügen, die Aufteilung nach Levels ist nur zur Ü- 
bersichtlichkeit gemacht. Wegen des Abort-clear eignen sich 
die Zellen auch sehr gut für 'private' Semaphorvariable. 
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DEFINITION EINER NEUEN DATENSTATION Scheibe 9 


Seite 1 von 1 
Signalmarke: SAEB1,SBF95, (9*2+1) *37 


Mit dieser Icheibe werden dem System ein oder mehrere Namen von 
neu definierten Datenstationen hinzugefügt. Das Bedieninterface 
kann mit Hilfe der Informationen dieser Scheibe aus einem Text- 
string dann die zugehörige Warteschlangennummer ('LDN') und die 
zugehörige Untergliederungsnummer ('DRIVE') ermitteln. 


Aufbau hinter der Signalmarke: 


Ser Alphanumerischer Textstring beginnend mit Buchstaben. 

Sx =. 1 Byte 'LDN' mit aufgeodertem Bit $80. (Dient gleich- 
zeitig als Endemarke für den Textstring). 

Sx+t1 1 Byte 'DRIVE', z.B. Laufwerksnummer. 


Nächster Textstring wie oben etc. 

1 Byte 'LDN' plus $80 

1 Byte 'DRIVE'. 

Letzter Biock mit Textstring, ldän,drive. 


soo Stopmarke, Ende dieser Scheibe. 


Beispiel: Sie wollen die Station PLOTTER für die LDN 5 einrich- 
ten, Laufwerksnummer sei 0 bzw. don't care. 


DC SAEB1,SBF95, (9*2+1) *37 Signalmarke 
DC.B 'PLOTTER',$80+5,$00 Name, ldn, drive 
DC.B © Ende der Scheibe. 
--) Damit die Station wirklich benutzt werden kann, müssen 


Sie noch mit Hilfe der Scheibe 1 eine zur gewählten 
LDN passende I/O-task bereitstellen. (s. Scheibe 1) 


--) wählen Sie die LDN dabei nicht größer als nötig. Der 
Nukleus sucht im abgetasteten Speicher nämlich nach 
der höchsten LDN aller 1-er Scheiben (Nicht der 9-er). 
Diese bestimmt den freigehaltenen Platz in der Tabelle 
"LDN to TID' (Zeiger SIOLDT = $852, 4 Byte pro LDN). 


--) Man kann allerdings auch gezielt Lücken bei den LDN 
lassen. Diese Tabellenlücken können durch Anschluß von 
nachladbaren I/O-Tasks (im verwalteten RAM) sinnvoll 
genutzt werden. So wird die I/O-Task 'nachmontiert': 


START MOVEA.L $852,A1l Tab-Zeiger 
MOVE.L $802,5*4(Al) eigene TID 
MOVEQ =5,D1 eigene LDN 
Too aus Schlange 
TERMI leer: Ende 


Task einmal von Hand starten, ist dann betriebsbereit. 
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DATENSTATIONSEIGENSCHAFTEN VORBESETZEN Scheibe 10 


Seite 1 von 1 
Signalmarke: SAEB1,SBF95, (10*2+1) *37 


Die mit den Befehlen SD und DD ('Set Device parameter’ und 'Dis- 
play device parameter') zugänglichen Geräteeigenschaften können 
mit Hilfe dieser Scheibe vorbesetzt werden. Beziehen sich mehrere 
solcher Scheiben auf das gleiche Gerät, so gelten die Eigenschaf- 
ten der letzten vom Scanner erfaßten Scheibe. 


Aufbau hinter der Signalmarke: 


2 Bytes Start-LDN di 


ser Scheibe 


2 Bytes aa,bb wie bei SD, für Start-LDN. 
2 Bytes aa,bb ER Start-LDN+1. 
$00,$90 Stop-marke dieser Scheibe. 
aa: $80 Bitfunktion Station ist rückspulbar (REWIND). 
$40 Bit£funktion Station kennt OPEN/CLOSE. 
520 Bitfunktion Nach dem CR erwartet Station LF. 
(CR=sCarriagereturn, LF=Linefeed) 
$10 Bit£funktion Station ist dialogfähiges Terminal 
$08 Bit£funktion Station möchte kein Echo (RS232). 
504 Bit£funktion Station kennt 'RM' bzw. 'ERASE'. 
$02 Bitfunktion Station ist für Ausgabe geeignet. 
sol Bitfunktion Station ist für Eingabe geeignet. 
bb: $80 Bitfunktion Station reagiert auf 'DIR'+'FILES' 
$40 Bit£funktion Station kennt Formatierbefehl. 
$20 Bitfunktion Station kennt 'CF' (Change)-Befehl 
$ıo Bitfunktion Hierarchische Verwaltung, 'MKDIR' 
so8 Bit£funktion SEEK, SYNC, SAVEPOS sind erlaubt. 
504 Bitfunktion Reserve 
$02 Bitfunktion Terminal (RS232c) Editor-parameter 


$o1 Bit£funktion ’ .. 


Beispiel: DC SAEB1,SBF95, (10*2+1) *#37 Signalmarke 
DC a1 Start-LDN 
DC.B $2B,0 LDN 11 
DC.B $33,0 LDN 12 
DC.B $c7,$EO LDN 13 
DC.B 0,0 Stop-marke 


Die Station LDN=11 erwartet ein LF nach jedem CR, arbeitet in 
beiden Richtungen und möchte kein Echo der eingegebenen Daten. 
Offensichtlich eine typische Host-schnittstelle. 

Die Station LDN=12 ist offenbar ein Terminal zum Editieren. 


Die Station LDN=13 könnte eine Floppy oder Wechselplatte sein. 


ki Die Scheibe 10 entspricht einem automatischen 'SD'-Befehl. 
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NEUEN BEDIENBEFEHL DEFINIEREN Scheibe 11 


Seite 1 von 2 
Signalmarke: SAEB1,SBF95, (11*2+1) #37 


Das Bedieninterface wird für alle Nutzer um einen oder mehrere 
Befehle erweitert. Dazu wird mit dieser Scheibe je ein 'Mnemo' 
der neuen Anweisung sowie die relativierte Sprungadresse defi- 
niert. 


---) Die definierte Aktion wird auf der Ebene des Bedieninterface 
mit sehr hoher Priorität ausgeführt. Es ist darum bei zeit- 
aufwendigen Kommandos unbedingt zu prüfen, ob nicht ein 
Sohnprozess generiert werden sollte. 


Aufbau hinter der Signalmarke: 


DC.B "String des Befehles' (ohne Blanks im String!) 
(DC.B 0) Nur wenn String ungerade Anz. Bytes besitzt! 
DC.L Adr-$ Lang relative Ansprungadresse 

DC.B "String nächster Befehl' 

(DC.B 0) Nur um String auf gerade Bytezahl zu füllen. 
DC.L Adr2-$ Lang relativierte Ansprungadresse. 

SFFFF Stop-marke, Ende dieser Scheibe. 


Beispiel: Neues Kommando zum Inkrementieren der Zelle $FFA000. 


DC SAEBl,SBF95, (11*2+1) #37 Signalmarke 
DC.B 'INK',SO Befehlsname, mit $0 aufgefüllt. 
DC.L INKSR-$ Ansprung 
DC SFFFF Stop-marke 
INKSR ADDQ.B =1,$FFA000 Eigentliche Operation 
RTS Rücksprung Bedieninterface. 


Nach Anschlag von Ctrl A oder über die XC-Station könnte man 
nach Einfügen dieser Scheibe in den abgetasteten Bereich den 
Befehl 'INK' oder 'ink' eingeben. Die 'shell'’ von RTOS-UH wäre 
also entsprechend erweitert. Das System nutzt selbst teilweise 
diese Erweiterungsmöglichkeit, z.B. sind die floppyspezifischen 
Kommandos durch eine kleine 11l-er Scheibe innerhalb des File- 
handlers eingebaut. 


Das Bedieninterface stellt für die Shellerweiterung eine Reihe 
von Hilfsfunktionen zur Verfügung. So gibt es die Möglichkeit, 
den weiteren Text hinter dem Kommando zu analysieren, den Fehler- 
ausgang anzuspringen oder etwa Sohnprozesse zu generieren und mit 
Parametern (SI=xx etc.) zu versorgen. 


---) Die Register DO-D7,A3,A5,A6 können frei benutzt werden. 


AO zeigt beim Einsprung auf die Unterprogrammtabelle des 
Bedieninterfaces, für z.B. JSR 2(AO) etc. 
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NEUEN BEDIENBEFEHL DEFINIEREN (Forts.) Scheibe 11 


Seite 2 von 2 
Signalmarke: SAEB1,S$SBF95, (11*2+1)*37 (Forts.) 
===) AD zeigt auf die Unterprogrammsprungtabelle des systemsei- 
tigen Bedieninterpreters, kann bei Bedarf von $83B3 neu ge- 


laden werden, falls es verändert wurde. 


Bedieninter- 
As) nachgela- 


===) Al zeigt auf das Communication 
faces, kann notfalls aus dem T 
den werden mit MOVEA.L $&C(A4),A 


Zee) A2 zeigt auf das nächste Zeichen des Eingabepuffers. Damit 
sind die Traps CSA und QSA zur Textanalyse direkt anwend- 
bar. Muß geordnet zurückgegeben werden! 


==) AA zeigt auf den Task-Workspace des Bedieninterfaces. 


-——) A5 zeigt auf den Textpuffer eines fertigen Ausgabe-CE 
des Bedieninterfaces. Mit (A5)+ kann man hier Text ab- 
legen (mit CR abschließen) und mit JSR 28(A0) ausgeben. 
Die Zielstation ist durch das '0'-Kommando steuerbar. Nach 
der Ausgabe wird A5 wieder reinitialisiert. 


===> A7 zeigt auf den Stack der Bedientask. Dieser liegt inner- 
halb des Task-workspace und enthält die Rücksprungadresse 
in den Bedieninterpreter. Platz für max. 5 Longwords. 

ei Alle anderen Register stehen frei zur Verfügung, werden 
jedoch von den u.a. Unterprogrammen teilweise zerstört. 


==) Der Rücksprung in den systemseitigen Interpreter muß mit 
RTS erfogen, es sei denn, daß einer der über AO erreich- 
baren mit JMP anzuspringenden Ausgänge benutzt wird. 


Tabelle der über AD erreichbaren Funktionen (JSR,JMP) 


JSR 0(AO) Hier nicht sinnvoll: Aufruf des Interpreters. 
JSR 4A(AO) I/O-command processor (Dir,files,mkdir etc.) 
Hinter dem JSR 4(AO) folgende 4 Bytes sind Parameter: 
1. Wort: Die notwendigen Facilitybits ('SD','DD') 
2. Wort: links MODE rechts MODE+1 des Comm.el. 'CE'. 
JSR 8(A0O) Subtask (son process)- generation. 
JSR 12(A0) Device/File decoder by (A2) to (A3)+ 
Ablage füllt ein CE exakt, wenn mit A3 auf STATIO(..) 
zeigend begonnen wird. Work. dir. etc. wird berücks. 
JMP 16(Ad) Syntaxfehlerausgang ('WRONG COMMAND'). 
an Sense Nicht innerhalb der Shell-task. 
JSR 28(A0) Make output of Text stored by (A5)+ before. 
JSR 32(AB) Scan on class of character by (A2). 
JSR 36(ABd) Write address in A3 as 6 hex. digits to (A5)+ 
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VERWALTETEN RAM-BEREICH DEFINIEREN Scheibe 12 


Seite 1 von 1 
Signalmarke: SAEB1,$SBF95, (12*2+1)*37 


Start und Ende einer beliebigen Zahl von RAM-Sektionen, die unter 
Verwaltung von RTOS-UH stehen sollen, werden mit dieser Scheibe 
definiert. Wenn der Abtaster mehrere Scheiben des Typs 12 erfaßt, 
so werden nur die Parameter der letzten abgetasteten Scheibe gül- 
tig. Man muß also in jedem Fall mit dieser Scheibe eine voll- 
ständige Definition angeben. 


Aufbau hinter der Signalmarke: 


DC.L RAMlbegin, RAMlend Speichersektion 1 
DC.L RAM2begin, RAM2end Speichersektion 2 
DC.L RAMxbegin, RAMzend Speichersektion x 
DC.L 0 Stopmarke dieser Scheibe 
---) Die Adressen müssen gerade sein und oberhalb der 2. 
Adresse müssen noch $20 Zellen RAM sein. (Ende ...E®) 
or Der Adressbereich der Sektion 2 muß überlappungsfrei 


höher liegen als der von Sektion 1, der von Sektion 3 
entsprechend höher sein als der von Sektion 2 etc. 


= Die zwischenliegenden Lücken werden vom Nukleus als 
scheinbare (unlöschbare) Module namens #NORAM angelegt 
und erscheinen entsprechend beim S-Befehl. 


---) Die letzte Adresse vor der Stopmarke darf zusätzlich 
noch mit gesetztem LS-Bit versehen werden. Dann wird 
von der angegebenen Adresse aus bis zum Bus-error oder 
bis zum ROM oder bis zum Erreichen des Nukleus in 1 kB 
großen Schritten getestet und die so ermittelte Ober- 
grenze eingesetzt. Achtung: Ende mit $...El setzen! 


Beispiele: 
DC SAEB1,SBF95, (12*2+1) *37 12-er Signalmarke 
DC.L $12000,$0001FFE1 'open end'-spezif. 
DC.L {0} 


Das verwaltete RAM erstreckt sich von $12000 bis zum durch Pro- 
bieren (Bus-error, unveränderlich oder Nukleus erreicht) ermit- 
telten oberen Grenzwert. 


DC S$SAEB1,SBF95, (12*2+1) *37 12-er Signalmarke 
DC.L $800,S3FFEO Fixierter Bereich 
DC.L $00080000.,SO00FFFEO z.B. VME-Systenm. 
DC.L ® 


Die Grenze von $800 wird automatisch um die Anzahl Zellen, die 
RTOS-UH dort unten anlegt (ohne evtl. RTOS-UH-Code!), nach oben 
korrigiert. VORSICHT, wenn RTOS-UH-Code unten im RAM liegt! 
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BLOCK FÜR MODULVARIABLE EINRICHTEN Scheibe 13 


Seite 1 von 1 
Signalmarke: SAEB1,SBF95, (13*2+1)*37 


Bei ROM-residenten miteinander kommunizierenden Tasks tritt das 
Problem auf, einen gemeinsamen Variablenblock zu definieren 
und diesen beim Systemstart zu winitialisieren. Da die Tasks 
wegen der großen Distanz auf diese Objekte mit absolut langer 
Adressierung zugreifen müssen, muß die Adresse dieser Modulva- 
riablen fest definiert werden können. 


Aufbau hinter der Signalmarke: 


DC.L Adr.i1 Anfangsadresse des Moduls, gerade. 
DC.L Adr.2 Adresse der (freien) Folgesektion, gerade. 
DC.B 'Name6b' 6 Byte langer Modulnanme. 
DC.L Dataladresse. (Adr. erstes von Null versch. Wort). 
DC.L Blocklänge. (Anzahl der Datenworte). 


DC.W Erstes Datenwort. 
das: -».. Datenblock No. 1 
DC.W Letztes Datenwort. 
DC.L Data2adresse. (Anfang nächster Datenblock). 
DC.L Blocklänge. (Anzahl der Datenworte). 
DC.W Erstes Datenwort. 
Be ... Datenblock No. 2 
DC.W Letztes Datenwort 
... Datenblock No. x 


DC.L o Statt Datenadresse: Stopmarke der Scheibe. 


Wichtiger Hinweis: Der angegebene feste Adressraum muß beim 
Hochlaufen wirklich im verwalteten RAM ver- 
fügbar sein, sonst läuft das System nicht an. 
Alle Worte für die keine Initialdaten angege- 
ben sind, werden vom Nukleus zu Null gesetzt. 


Beispiel: 
DC SAEB1,SBF95, (13*2+1) *37 Signalmarke. 
DC.L $3000 Anfangsadresse. 
DC.L 54090 Nächste FREE- Sektion. 
DC.B ‘“Testmd' Name des Modules. 
DC.L $3190 Datenblock-adr. 
DC.L 4 4 Worte zu initialis. 
DC 1 Datum 
DC 2 k 
DC 3 a 
DC 4 Ai 
DC.L [() Stopmarke der Scheibe. 


PEARL-Module für E-PROM-Programme werden erst geladen, dann mit 
dem Prommer-programm in obenstehende Scheibendaten verwandelt. 
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ANSCHLUSS VON TRAPS, INTERRUPTVEKTOREN ETC. Scheibe 14 
Seite 1 von 1 

Signalmarke: S$AEB1,SBF95, (14*2+1) *37 

Für nutzerdefinierte Interruptprozesse muß das System eine Mög- 

lichkeit zum Besetzen der entsprechenden Adressvektoren schon 


während der Hochlaufphase bereitstellen. 


Aufbau hinter der Signalmarke: 


DC.W Adr.1 oder Pseudovektoradres 

DC.W Jumpadri1-$ 

DC.W Adr.2 

DC.W Jumpadr2-$ 

DC.W {6} Statt Vektoradresse: Stopmarke. 
Beispiel: Der Userinterrupt $200 soll nach dem Aufsetzen auf die 


Adresse XYZ zeigen. 


DC SAEB1,$SBF95, (14*2+1) *37 Signalmarke 

DC $200,XY2-$-2 -2 wegen 2 Worte im DC! 

DC 8 Stopmarke 

DC XYZMAL-XYZ Link für den Rückfallmechanism 
xXYZ MOVE IID,-(A7) Save old Interrupt-Id ($S7FE) 

MOVE =$200,IID Aktuellen Vectorlink eintrag. 


MOVEM.L DO-D3,-(A7) 
nee Interrupt-code nach Anwendung 
EXIT MOVEM.L (A7)+,DO-D3 


MOVE (A7)+,IID Altes Vectorlink wiederholen. 
ORI =$700,5R Alle Interrupts stoppen. 
TST $800 (DPC) Vorgeschriebener Interr. exit 
BNE.S EXIT2 IF DPC == ® THEN RTE erlaubt. 
RTE m 
EXIT2 UJMP $908 (DISEX) DISEX vorgeschrieben statt RTE 
* Rückfall nach hier, wenn Bus-/Adr-/Opcode-exc. im Interrupt: 
AYZMAL MOVE ... z.B. Coupler abwürgen. 
BRA EXIT 


Interruptprogramme müssen den vorgeschriebenen Ausgang benutzen, 
da sonst der Taskumschalter (Dispatcher) ausfallen kann. 


Es können prinzipiell alle Zellen im Bereich bis S$7FFE auf diese 
Weise mit Adresszeigern (4 byte Adr) automatisch versorgt werden, 
leider kann man damit dann auch u.U. systemeigene Anschlüsse zer- 
stören. Es wird bei Scheiben mit gleichen Vektoradressen immer 
die letzte vom Abtaster erfaßte Scheibe als gültig genommen. 


Man beachte bei dem relativierten Wort, daß das $-Symbol im As- 
sembler immer den Anfang des DC-Blockes bezeichnet, das relati- 
vierte Wort aber auf seine eigene Adresse bezogen wird. (Daher 
die Korrektur mit $-2 im obigen Beispiel). 
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WARMSTART-INITIALISIERUNGS-CODE DEFINIEREN Scheibe 15 


Seite 1 von 1 


Signalmarke: SAEB1,SBF95, (15*%2+1) *37 


Bei der Verwendung von Peripherie-Kopplern kommt es oft zur Not- 
wendigkeit, deren Controlregistern beim Systemstart eine gewisse 
Anfangsinformation mitzugeben. Auch z.B. das Auslesen einer 
batteriegepufferten Uhr (um damit die Planungsuhr des Systemes zu 
stellen) sollte bei jedem Warm- oder Kaltstart erfolgen. Um dies 
dem Systemprogrammierer zu ermöglichen, sucht der Nukleus nach 
Abschluß aller sonstigen Aufsetzoperationen mit dem Scanner (A 
taster) nach 15-er Scheiben, um deren Code nacheinander zu exe- 
kutieren. 


Aufbau hinter der Signalmarke: 


Maschinencode fast beliebig, aber kein Tasking, I/O etc. 
EN Alle Register bis auf A7 frei verfügbar. 
RTS Rückkehr in den Nukleus. 


Wichtiger Hinweis: Das System befindet sich noch in einem soge- 
nannten 'Kernelmode' auf der Supervisorebene 
und kann daher seinen Taskumschalter noch 
nicht benutzen. Queued I/O etc. ist also 
keinesfalls möglich. Tritt in dem Scheiben- 
code eine exception (Buserror etc.) auf, so 
läuft das System unter Umständen mit einem 
Notstart an. Die im Abtastbereich folgenden 
15-er Scheiben werden dann nicht mehr exe- 
kutiert, ohne daß dies erkennbar sein muß. 


Beispiel: Schreibe das Byte $3C in den Coupler S$FF60A2 ein. 
DC SAEB1,SBF95, (15*2+1) *#37 Signalmarke 
MOVE.B =$3C,$FF60A2 Initialisierung 
RTS Zurück (Nukleus) 


Die Bearbeitung der 15-er Scheiben erfolgt in der Reihenfolge, in 
der der Abtaster sie findet. In jedem Fall ist die Bearbeitung 
der letzten 15-er Scheibe auch die letzte Aufsetzoperation des 
Nukleus. Danach startet unmittelbar der Taskumschalter mit der 
höchstprioritierten Autostarttask. (Meistens #ERROR) 


Für Operationen, die nur beim Kaltstart ausgeführt werden sollen, 
ist eine eigene Scheibe (18) vorgesehen. 


E-VII-18 Rev. RTOS-UH Dec. 1986 


HEADER-TEXT. Scheibe 16 


Seite 1 von 1 


Signalmarke: S$AEB1,$BF95, (16*2+1)*37 


Die Scheibe gestattet die Ausgabe von ASCII-Text, der in der 
RTOS-UH Kopfzeile erscheint, sofern das System die standardmäßige 
ERROR-Task besitzt. Diese Scheibe wird nämlich nicht vom Nukleus 
bearbeitet, sondern von #ERROR. Die Textzeichen werden nacheinan- 
der ausgegeben, ohne daß automatisch Carriage-returns etc. einge 
fügt werden. Solche Control-zeichen müssen also im Text enthalten 
sein. Der Text erscheint in der Reihenfolge, in der der Scanner 
die 16-er Scheiben erfaßt. 


Aufbau hinter der Signalmarke: 


DC.B "ASCII-Text',$FF S$SFF ist Endekennung. 
Beispiel: 

DC SAEB1,SBF95, (16*2+1) *37 Signalmarke 

DC.B SOA,S$SOD, 'Werner Müller's RTOS',SFF 
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EXTERN-SYMBOL DEFINITION Scheibe 17 


Seite 1 von 1 


Signalmarke: SAEB1,SBF95, (17*2+1)%37 


Es ist mit dieser Scheibe möglich, im EPROM oder RTOS-Bootbereich 
eine globale Marke zu setzen. Der Lader von RTOS-UH kann damit 
automatisch z.B. EPROM-residente Unterprogramme an das Nutzer- 
programm anbinden. 


Wann immer der Lader eine nach dem Bearbeiten der Liste noch un- 
befriedigte Referenz findet, sucht mit Hilfe des Abtasters 
den RAM/Bootbereich nach dieser Scheibe ab. Die Scheibe hat also 
für den Nukleus selbst keine Bedeutung, da sie nur vom Lader bei 
Bedarf gesucht wird. 


Aufbau hinter der Signalmarke: 


DC.B 'Name6b' 6 Bytes langer globaler Name 
DC Adr-$ Relativierte Adresse des Symbols. 


Jede Scheibe dieser Art definiert damit genau ein globales Sym- 
bol. Existieren mehrere Scheiben mit dem gleichen Symbol, so ver- 
wendet der Lader die erste vom Abtaster erfaßte Scheibe. 


Bsp. 
DC S$SAEB1,SBF95, (17*2+1) #37 Signalmarke 17. 
DC.B "RANF Globaler Name. 
DC ENTRY-$ relative Einsprungadresse. 
Be Beliebige Daten. 
ENTRY ENTR WSPSZ zum Beispiel: PEARL-Unter- 
VARE oo dersleme Programmkopf (s.E-IV) 


Das Label RANF ist jetzt dem Lader so verfügbar, als stünde es in 
einem der Input-files des Laders. 


Auch die Einbaufunktionen des PEARL-Compilers werden mit Hilfe 
dieser Scheiben angeschlossen, allerdings im Gegensatz zu den 
normalen Funktionen mit gegen die offene PEARL-Welt geschützten 
Namen. (z.B. #SSIN, #SSORT) 
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KALTSTART-INITIALISIERUNGS-CODE Scheibe 18 


Seite 1 von 1 


Signalmarke: S$AEB1l,SBF95, (18*2+1)*37 


Bei der Verwendung von RAM-Modulen (etwa VME-RAM) kommt es oft 
zur Notwendigkeit, deren Paritätsbits richtig vorzubesetzen, um 
einen Bus-error beim späteren Schreib/Lesezugriff zu vermeiden. 
Auch kann eine 'private' Notiz, daß es sich um einen Kaltstart 
handelt, nützlich sein. Seltener dagegen wird man Peripherie-Bau- 
steine schon an dieser Stelle initialisieren wollen. Um dieses 
dem Systemprogrammierer zu ermöglichen, sucht der Nukleus vor 
Beginn aller sonstigen Aufsetzoperationen mit seinem Scanner (Ab- 
taster) nach 18-er Scheiben, um deren Code nacheinander zu exe- 
kutieren. 


Aufbau hinter der Signalmarke: 


Maschinencode fast beliebig, aber kein Tasking, I/O etc. 
dns Alle Register bis auf A7 frei verfügbar. 
RTS Rückkehr in den Nukleus. 


Wichtiger Hinweis: Das System befindet sich noch in einem soge- 
nannten "Kernelmode' auf der Supervisorebene 
und kann daher seinen Taskumschalter noch 
nicht benutzen. Queued I/O etc. ist also 
keinesfalls möglich. Tritt in dem Scheiben- 
code eine exception (Buserror etc.) auf, so 
läuft das System nicht an. 


Beispiel: Lösche das RAM von $80000 bis $FFFFF. 
DC $AEB1,$BF95, (18*2+1) *37 Signalmarke 
LEA $80000,A1l Start-adresse 
LEA $100000,A2 End-adr.+1 
CLR Do Null vorbereiten, denn CLR 
LOOP MOVE.B D®, (Al)+ beginnt mit Read-cycle !!!! 
CMPA.L A2,Al Bedingung 
BLT.S LOOP Schleifenrücksprung 
RTS Rückkehr in den Nukleus. 


Die Bearbeitung der 18-er Scheiben erfolgt in der Reihenfolge, in 
der der Abtaster sie findet. In jedem Fall ist die Bearbeitung 
der 13-er Scheiben allen anderen Operationen vorgelagert. 


Für Operationen, die nur beim Warmstart ausgeführt werden sollen, 
ist eine eigene Scheibe (15) vorgesehen. 
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Belegung der Tastatur unter RTOS-UH 


Der nachfolgenden Tabelle sind die Sonderbelegungen der Atari- 
Tastatur zu entnehmen. 


Taste: Funktion: 

Undo Break-Taste 

Shift+Undo Abort-Taste 

Help Anzeige des Hauptbildschirms 

Shift+Help Anzeige des zuletzt aktiven Bildschirms 

Cntr+Cursordown Wechsel der Schriftfarbe (Nur bei 
Farbbildschirm) 

Im Editor: 

Insert Einfügen eines Buchstaben 

Shift+Insert Einfügen einer Zeile 

Delete Löschen eines Buchstaben 

Shift+Delete Löschen einer Zeile 
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Terminalemulation des Atari 


Die Terminalemulation der Atari-ST-Serie versteht die folgenden 
Steuerzeichen: 


$07 Ring the bell 

$08 Cursor einen Schritt nach links (Backspace) 

$0OA Cursor einen Schritt nach unten (Linefeed) 

$0B Cursor einen Schritt nach oben (Vertical tab) 

$0OC Cursor einen Schritt nach rechts (Formfeed) 

$S0D Cursor an den Anfang der Zeile (Carriage return) 

$1A Bildschirm löschen 

$1E Cursor in die linke obere Bildschirmecke setzen (Home) 


Die folgenden Escape-Sequenzen sind z.B zum Televideo 910 kompa- 
tibel: 


Esc * löscht den gesamten Bildschirm 

Esc Y löscht ab Cursor-Position den Rest des Bildschirms 

Esc y wie Esc Y 

Esc T löscht ab Cursor-Position den Rest der Zeile 

Esc t wie Esc T 

Esc =r,c Cursor positionieren: r=Row c=Column. Zu den Werten für 
r und c sind immer $20 zu addieren. 

Esc 8 Smooth-Scroll einschalten 

Esc 9 Auf normalen Scroll umschalten 

Esc b den gesamten Bildschirm invertieren 

Esc d normaler Bildschirm 

Esc G ® Video-Attribut: normale Schrift 

Esc G 4 Video-Attribut: inverse Schrift 

Esc G 8 Video-Attribut: unterstrichene Schrift 

Esc G < Video-Attribut: inverse und unterstrichene Schrift 

Esc E deutschen Zeichensatz laden 

R 


Esc US-ASCII Zeichensatz laden 

Der Zeichensatz liegt im RAM-Bereich des Rechners. Vom Nutzer 
kann also auch ein eigener Zeichensatz geladen werden. Der 
Zeichensatz beginnt mit mit dem Leerzeichen ($20). Jeder Buch- 
stabe ist mit 16 (bei Farbe 8) Byte abgelegt. Den Anfang der 
Zeichensatztabelle findet man, indem man $00000320 zum Inhalt der 
Speicherzelle $81E addiert. Der Platz reicht für einen kompletten 
Zeichensatz mit 255 Zeichen, der ab der angegebenen Stelle ins 
RAM kopiert werden kann. Nach einem Abort ist der US-ASCII 
Zeichensatz geladen. 
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Cursor On/Off 


Syntax: CON oder COFF 


Beschreibung: 


Beispiel 1: 


Beispiel 2: 


Mit dem Befehl COFF kann der blinkende Cursor des 
Hauptbildschirms ausgeschaltet werden. Der Befehl 
CON dient zum Wiedereinschalten des Cursors. Diese 
beiden Befehle sind bei graphischen Ausgaben auf 
den Hauptbildschirm sinnvoll einzusetzen. Es ist 
somit möglich, z.B. eine Hardcopy ohne den stören- 
den Cursor zu machen. Man sollte nicht vergessen, 
den Cursor wiedereinzuschalten, da sonst z.B. eine 
Orientierung im Editor schwer fallen dürfte. 


Ausschalten des Cursors. 


- Kommando: COFF 


Einschalten des Cursors. 


Kommando: CON 
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FUNKTIONKEY PROGRAMMING Pu BE EO 


SYNTAX: 


Beschreibung: 


text: 


Beispiel 1: 


Beispiel 2: 


Fl text ... FA text 


Mit den Befehlen Fi bis F10 können die Funktions- 
tasten des Atari 520ST programmiert werden. Die 
Belegung der Tasten bleibt auch nach einem 
Abort erhalten. Die Tastenbelegung kann jederzeit 
durch erneuten Aufruf von Fl bis F19 geändert 
werden. 


Der Text darf aus ASCII- 
Länge ist pro Taste auf 80 7 1 
<Control> Zeichen einzugeben, ist 
zu benutzen. 


Die Taste F1 soll so belegt werden, daß man die 
Systemübersicht erhält. 


Kommando: F1 "AS’M 
Es wird zuerst <Control A> eingegeben. Dann folgt 
das S für die Systemübersicht. Als letztes wird ein 


<CR>, entspricht <Control M>, eingegeben. 


Es soll bei Betätigung der Taste F9 eine Datei vom 
Laufwerk FO. in ein ED-File kopiert werden. 


Kommando: F9 "ACOPY FO:XYZ>ED:XYZ 
Zuerst wird wieder <Control A> eingegeben, um das 
Bedieninterface aufzuwecken. Dann folgt der COPY- 


Befehl. Hier wurde kein <CR> angehängt, so daß der 
Befehl noch von Hand losgeschickt werden muß. 
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Hardcopy BEPpN% 


SYNTAX: HCPY modulname 


Beschreibung: Mit dem Befehl HCPY kann eine Hardcopy auf einen 
am Centronics-Port angeschlossenen Drucker aus- 
gegeben werden. Die Steuersequenzen passen für 
IBM-Kompatible Drucker. Soll der Haupt-Bildschirm 
gedruckt werden, so ist für modulename '#MAIN ' 


einzusetzen. 

modulname: Der Modulname darf aus bis zu 6 Zeichen bestehen. 
Vor den Namen muß ein '#' gesetzt werden. Das 
System prüft, ob ein entsprechendes Modul vorhan- 
den ist. 

Beispiel 1: Es soll der Haupt-Bildschirm gedruckt werden. 


Kommando: HCPY #MAIN 


Beispiel 2: Es soll ein nicht sichtbarer Bildschirm, der im 
Modul '#MAL' liegt, gedruckt werden. 


Kommando: HCPY #MAL 


Sollte der Drucker nicht IBM oder EPSON kompatibel sein, besteht 
die Möglichkeit, eine eigene Hardcopy-Routine einzubinden. Diese 
muß aus eine Modulkopf mit dem Modulnamen 'Hardcp' bestehen und 
nach dem Modulkopf mit einem NOP beginnen, um exekutiert zu 
werden. Das Ende der Routine muß ein RTS sein. Im Register A0® 
erhält man die Anfangsadresse des Bildschirms. Die Register A0-A3 
und D®-D7 stehen zur freien Verfügung. Der Stack liegt am Ende 
des Taskworkspaces und ist mit maximal 7 BSR-Leveln belastbar. 


Beispiel: DC.L 0,0 RTOS LINKS 
DC $10 TYPE: MODULE 
DC.B ‘Hardcp' NAME 
NOP FOR TEST 


own code of user 


De u ee en 


RTS EXIT 
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Set Baudrate 


SYNTAX: 


Beschreibung: 


baurate 


datenbits: 


stopbits 


parity 


Beispiel 1: 


Beispiel 2: 


SB baudrate datenbits stopbits parity 


Mit dem Befehl SB kann die Baudrate und das 
Übertragungsformat der RS 232-Schnittstelle ein- 
gestellt werden. Damit ist es möglich, neben einem 
zweitem Terminal auch Geräte, die nicht mit der 
Standardrate von 9600 Baud arbeiten, anzuschlies- 
sen. Die folgenden Parameter sind zulässig, sie 
müssen durch Blanks oder Komma getrennt werden: 


19200 Baud 
9600 Baud (Standardeinstellung) 
4800 Baud 
2400 Baud 
1200 Baud 
300 Baud 


8 Bit (Standardeinstellung) 

7 BIEc 

6 Bit 

5 Bit 

Bit (Standardeinstellung) 

Bit 

N no parity (Standardeinstellung) 

{6} odd parity 

E even parity 

Die Baudrate soll für den Anschluß eines Modems 
auf 300 Baud, 7 Bits und 1 Stopbit eingestellt 
werden: 

Kommando: SB 300 7 1 

Es soll wieder die Standardeinstellung gelten: 
Kommando: SB 9600 8 2 N 

Die Reihenfolge der Parameter muß eingehalten 
werden, aber restliche Parameter können weggelas- 


sen werden. Nach einem Abort gilt wieder die 
Standardeinstellung. 
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Systemadressen 


videopointer (long) S81A 
der videopointer zeigt auf die Startadresse des Hauptbild- 
schirms. Er darf nicht verändert werden. 


hide_screen (long) $83A 
hide_screen zeigt auf den Bildschirm, der zuletzt genutzt 
wurde, der Bildschirm muß nicht sichtbar sein. 


change_screen (long) S84A 
Ist der Wert ungleich Null, « 
vertikalen Bildrücklauf in den 
hintere Byte wird dabei 
change_screen wird auf Null gesstzt. 


dieser Wert beim nächsten 
ifter geschrieben. 
berücksichtigt 


key_answer (8 words) $8E6 
Hier können bis zu 8 Worte stchen, die vom Tastaturproz: 
als Statusmeldung geschickt werden. Alle Meldungen, 
kürzere, beginnen bei $3E6. Die Meldung wird in der Reihen- 
folge abgelegt, wie sie von Atari dokumentiert ist. Bei 
Mausbewegungen z.B. liegt der Mausstatus bei $3E6, die X- 
Koordinate bei $8E7 und die Y-Koordinate bei $8E8. 


Prozeßinterrupts 


Drei Prozeßinterrupts sind angeschlossen. 


EV 80000000 Dieser Interrupt wird ausgelöst, wenn eine kom- 
plette Statusmeldung des Tastaturprozessors vor- 
liegt. Damit kann z.B. auf Bewegungen der Maus 
von PEARL aus reagiert werden. 


EV 40000000 Dieser Interrupt wird bei jedem vertikalen Bild- 
rücklauf gefeuert. Er kann benutzt werden, um 
synchron zum Bildrücklauf - in der Austastlücke - 
zwischen verschiedenen Bildschirmen umzuschalten. 


EV 20000000 Dieser Interrupt kann extern ausgelöst werden. Er 
ist an PIN 22 der RS 232 Schnittstelle (ring 
indicator) angeschlossen und wird mit einer fal- 
lenden Flanke ausgelöst. Er kann z.B. mit zusätz- 
lichen LI/O Ports benutzt werden, um auf ein 
externes Ereignis reagieren zu können. 
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Erweiterte Grafik-Einbaufunktionen für den Atari 


Die erweiterten Einbaufunktionen sind nicht im Compiler ange- 
schlossen, müssen daher vor Benutzung im Programm spezifiziert 
werden. Je nach angeschlossenem Monitor wird eine Auflösung von 
640*400 Pixel (Atari SM 124) oder von 640*200 Pixel (4 Farben) 
unterstützt. Es stehen folgende Funktionen zur Verfügung: 


CALL SCLOAD (modname ‚drive, filename) ;.Bildschirm von Floppy laden. 
CALL SCSAVE (modname,drive, filename) ;.Bildschirm auf Floppy laden. 
CALL SCRSET (modname);...........- Bildschirm im System einrichten. 
CALL SCKILL (modname); Bildschirm aus dem System entfernen. 
CALL SCRCHG (modnanme); .„...angezeigten Bildschirm wechseln. 
CALL PLANE (planenr,colour) t ister setzen. 
CALL PEN(colour);......... setzen. 
CALL WIDTH (xwidth,, ywidth); z Er U tellen. 
GRULSCLEARE 0 6 rasatenenaveng te 3,0 Feilen ang aan CHEN 3 aschirm löschen. 
CALL SPRITL(xpos,ypos,xlen,ylen,modnam „ prite laden. 
CALL SPRITS(xpos,ypos,xlen,ylen,modname,ar reiben. 
CALL CIRCLE (xpos,ypos,radius,colour);.. is zeichnen. 
CALL TEXT (xpos,ypos,colour,text);...... x an Position ausgeben. 


Parameter : modname CHAR (5); 
filename CHAR (24); 
text CHAR (80); 
array BIT(16); 
sonst FIXED (15); 
SCLOAD: Von der Diskette (Laufwerk FO für drive=0, Laufwerk Fl 


für drive=1) wird der mit drivename bezeichnete File in 
den mit modname bezeichneten Bildschirm geladen. Es 
wird geprüft, ob der angegebene Bildschirm eingerichtet 
ist. Wenn nicht, erfolgt eine Fehlermeldung und der 
Ladevorgang wird abgebrochen. 


SCSAVE: Der mit modname bezeichnete Bildschirm wird auf der 
Diskette (Laufwerk FO für drive=0, Laufwerk Fl für 
drive=1) unter dem mit filename angegebenen Namen 
abgelegt. Existiert der Bildschirm nicht im System, 
erfolgt eine Fehlermeldung und der File wird nicht 
angelegt. 


SCRSET: Es wird ein verdeckter Bildschirm im System eingerich- 
tet. Damit ist es möglich, Graphiken im Hintergrund zu 
erstellen. Der Bildschirm erhält den Namen, der mit 
modname übergeben wird. Vor modname wird automatisch 
ein '#' eingefügt, um ein Entladen mit UNLOAD zu 
verhindern. In den Taskworkspace der aufrufenden Task 
wird die Adresse des Bildschirms eingetragen. Diese 
Adresse wird von SETPIX, LINE, CIRCLE und CLEAR 
benutzt. Ist ein Bildschirm mit modname schon im System 
vorhanden, wird kein zweiter eingerichtet, sondern es 
erfolgt nur die Eintragung der Adresse. Die Adresse 
wird bei jeder Aktivierung der Task gelöscht, so daß 
z.B. eine zyklisch eingeplante Task jedesmal SCRSET 
aufrufen muß. Steht nicht mehr genügend Speicher zur 
Einrichtung des Bildschirms zur Verfügung, wird die 
Task suspendiert. Sie läuft bei genügend freiem 
Speicher weiter. 
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SCKILL: 


SCRCHG: 


PLANE: 


PEN: 


WIDTH: 


CLEAR: 


Mit SCKILL kann ein verdeckter Bildschirm aus dem 
System entfernt werden. Dabei wird automatisch die 
Adresse des Bildschirms im Taskworkspace gelöscht. 
Diese Routine steht auch als Bedienkommando zur 
Verfügung. Dann muß vor dem Modulnamen aber das '#' mit 
eingegeben werden. Vorsicht ist geboten, wenn ein 
Bildschirm entfernt wird, in dem noch gemalt wird: es 
kann zu Systemabstürzen kommen! 


Der angegebene Bildschirm wird zur Anzeige gebracht. 
Wird das Umschalten des Schirmes mit dem Bildrücklauf 
synchronisiert, können, je nach Anzahl der Bilder, 
kleine Trickfilme realisiert werden. Dieser Befehl 
steht auch als Shell-Erweiterung zur Verfügung. Dann 
muß beim modname aber ebenfalls das '#' mit angegeben 
werden. 


Die Farbinformation in den Farbpalettenregistern wird 
geändert. Damit ändeı sich die Farbe des gesamten 
Bildschirmes für alle Bilder. Bei schwarz/weiß-Darstel- 
lung wird nur das letzte Bit im Plane-Register berück- 
sichtigt. In der mittleren Auflösung, die von RTOS-UH 
unterstützt wird, werden die Plane-Register 0-3 berück- 
sichtigt. Die Organisation der Farbpalettenregister 
sieht folgendermaßen aus: 


FEDCBA9876543210 
naher rrr-ggg-bbb 


Die mit r bezeichneten Bits bestimmen den Rot-Anteil, 
die mit g bezeichneten: den Grün- und die mit b 
bezeichneten den Blau-Anteil der Farben. Je größer der 
Wert dieser drei Bits ist, um so intensiver ist die 
Farbe. 


Es wird die Schriftfarbe festgelegt. Die Farbe ® ent- 
spricht dem Hintergrund. Mit den Farben 1-3 kann das 
entsprechende Paletten-Register angewählt werden. 


Die aktuelle Bildschirmauflösung wird in die Variablen 
xwidth und ywidth eingetragen (z.B. hohe Auflösung 
zwidth=640, ywidth=400). Damit ist es möglich, Program- 
me zu schreiben, die bei verschiedenen Auflösungen 
lauffähig sind. 


CLEAR löscht den Bildschirm, der im Taskworkspace mit 
SCRSET eingetragen wurde. Ist kein eigener Bildschirm 
eingerichtet, so benutzt CLEAR, ebenso wie LINE, SETPIX 
und CIRCLE, den Hauptbildschirm. 
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SPRITL: Von dem angegebenen Bildschirm wird ein Ausschnitt der 

Größe xlen, ylen in ein zweidimensionales BIT(16) 
Pearl-Feld gerettet. Es wird geprüft, ob der Bereich 
innerhalb des Bildschirms liegt, wenn nicht, erhält man 
die Fehlermeldung 'Out_of_screen'. Desweiteren wird 
überprüft, ob der Ausschnitt in das angegebene Pearl- 
Feld paßt. Dabei werden die einzelnen Feldgrenzen 
überprüft. Reicht eine nicht, erhält man die Fehler- 
meldung 'X-Dim._of_Array_to_little' oder 'y-Dim._of 
_Array_to_little'. Sind xlen/ylen kleiner oder gleich 
Null, wird die Meldung 'Xlen_negativ' oder 'Ylen_ 
negativ' ausgegeben. Bei jedem der beschriebenen Fehler 
wird die aufrufende Task suspendiert und bei einem 
Continue terminiert. 
Die X-Dimension des Feldes muß die Größe (xlen/16) 
haben. Wenn der Rest dieser Division ungleich Null ist, 
muß das Feld ein Wort größer sein. Die Y-Dimension hat 
die Größe von ylen. Es wird nur der tatsächlich 
angegebene Ausschnitt gerettet, ist z.B. Xlen=5, so 
werden in X-Richtung 5 Bits linksbündig in das Feld 
geschrieben. 


Beispiel: Bildschirm: ?oPoxxxxxxooo 
GO00XXXKXK000... 


0000XXXXXX000. 


Aufruf: CALL SPRITL(4,0,6,3,'MAIN ',Feld); 


Feld : CRRKERGE ES DCL Feld (1,5) BIT(16); 


In dem Feld liegen die Bits wie auf dem Bildschirm. Um 
in dem obigen Beispiel z.B. auf das Pixel mit den Koor- 
dinaten (3,1) (hervorgehoben) zuzugreifen, muß mit 


BIT=Feld(1,2).BIT(4); gearbeitet werden. 

Bei Farbdarstellung 
werden beide Planes gerettet. Zuerst 
wird das erste Plane und danach das 
Zweite komplett im Feld abgelegt. Es 
wird also die doppelte Y-Länge des 
Feldes benötigt. Da die Auflösung in 
Y-Richtung bei Farbe auch nur 200 
Pixel beträgt, kann der gesammte 
Bildschirm sowohl bei Farbe wie auch 
bei Schwarz/Weiß in ein Feld der Größe 
(40,400) BIT(16) ge-rettet werden. 


Anmerkung: Mit SPRITL/SPRITS können Bildausschnitte über den 
Bildschirm bewegt werden. Dazu muß ein Bildausschnitt mit SPRITL 
gerettet werden, dann mit dem Ausschnitt überschrieben und 
zuletzt mit SPRITS restauriert wer-den. Wenn sowohl die X- 
Koordinate als auch Xlen ohne Rest durch 8 teilbar sind, wird der 
Transfer in Hochge-schwindigkeit durchgeführt! Je größer der 
Bereich ist, desto mehr wirkt sich der Geschwindigkeitsvorteil 
aus. Wird z.B. der ganze Bildschirm in ein Feld geschrieben, geht 
es ca. 6 mal schneller, als wenn ein Bit weniger gerettet würde. 
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SPRITS: 


CIRCLE: 


TEXT: 


Anmerkung: 


Beispiel: 


Ein Feld[ausschnitt] wird auf einen Bildschirm ge- 
schrieben. Alle Überprüfungen erfolgen genauso, wie bei 
SPRITL. 


Es werden Vollkreise auf den Bildschirm, der im Task- 
workspace eingetragen ist, gezeichnet. Ist kein Bild- 
schirm eingetragen, wird auf den Hauptbildschirm ge- 
zeichnet. Ist der Kreis größer als der Bildschirm, wer- 
den nur die entsprechenden Segmente gezeichnet. Eine 
Zerstörung anderer Speicherstellen ist ausgeschlossen. 


Es kann ein beliebiger Text auf den Bildschirm, der im 
Taskworkspace eingetragen ist, ausgegeben werden. Der 
Text darf maximal 80 Zeichen lang sein. Er wird solange 
ausgegeben, bis nur noch Li eichen kommen. Diese wer- 
den unterdrückt, um auch ki Texte ausgeben zu kön- 
nen. Der Text wird nur auf den Bildschirmspeicher ge- 
schrieben, es kann nicht zu einer Systemzerstörung 
kommen. xpos/ypos bezeichnet das linke obere Pixel der 
Zeichenmatrix des ersten Zeichens. 


Ist modname='MAIN ', so wirken die Routinen auf den 
Hauptbildschirm. Der Aufruf von SCRSET ist nicht 
nötig. Wird bei den Routinen LINE, SETPIX, CIRCLE und 
TEXT für die Farbe eine negative Zahl eingesetzt, 
werden die Bits auf dem Bildschirm invertiert. Durch 
zweimaligen Aufruf mit den gleichen Koordinaten kann 
z.B. eine Linie wieder gelöscht werden. 


PROBLEM; 

SPC CLEAR ENTRY GLOBAL; 

SPC WIDTH ENTRY (FIXED(15),FIXED(15)) GLOBAL; 
SPC SCRSET ENTRY (CHAR(5)) GLOBAL; 


AAXX:TASK; 

DCL (xwidth,ywidth) FIXED(15); 
CALL WIDTH (xwidth,, ywidth); 
CALL SCRSET('BILD '); 

CALL CLEAR; 


CALL LINE(0,0,xwidth,ywidth,1); 


CALL SCRCHG('BILD '); 
END; 


MODEND; 
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Die Ar N DORIRIT EHRT 

Zur erstmaligen Benutzung der ATARI-Hardisk ist die Verwendung 
der auf der Utility-Diskette mitgelieferten Verwaltungsprogramme 
WINAS und WINPS 

erforderlich. 


Um die ATARI-Winchester unter RTOS-UH zu benutzen, ist in fol- 
gender Weise zu verfahren: 


1) Formatieren und Partitionieren sie die Winchester unter TOS 
wie im TOS-Manual beschrieben. 


2) Starten Sie RTOS-UH und laden Sie das RTOS-UH-Harddisk-Verwal- 
tungsprogramm von der im Laufwerk 0 eingelegten Utility- 
Diskette mit 

LOAD FO.WINAS+FO.WINPS 
Rufen Sie es mit 


SETUP 


auf. Jetzt werden Ihnen für jede Partition die Länge und die 
Anzahl der Blöcke angezeigt. 


3) Auf die Frage 
EINE PARTITION UMSETZEN: 


antworten Sie mit 1, 2, 3 oder 4, je nach gewünschter 
Partition-Nummer. 


4) Bei der Frage 
PARTTION ID: 
antworten sie mit UHF, wenn Sie eine Partition auf RTOS-UH um- 
schalten möchten. Wenn Sie eine Partition auf TOS zurück- 


schalten wollen, geben Sie hier GEM ein. 


5) Schritt 3 und 4 wiederholen Sie solange, bis alle Partitionen 
die richtige ID haben. Dann antworten Sie auf die Frage 


EINE PARTITION UMSETZEN: 
nur mit der <Return>-Taste. 


6) Sind nun alle Partition auf die korrekte ID gesetzt, so 
antworten Sie auf die Frage 


NEUEN ROOT SEKTOR AUF DIE PLATTE SCHREIBEN (J/N): 


mit J. Der neue Root-Sektor wird nun auf die Winchester über- 
tragen und das Programm verabschiedet sich mit der Meldung 


DAS WAR'S 


Sind die Partitionen noch nicht auf die richtige ID gesetzt, 
so antworten Sie mit N. Das Programm verabschiedet sich 
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7) 


8) 


9) 


daraufhin mit der Meldung 
DANN EBEN NICHT 


und schreibt keinerlei Informationen auf die Harddisk. Sie 
haben den lInitialisierungsvorgang hiermit abgebrochen und 
müssen ggf. bei 1) neu beginnen. 


Notieren Sie sich nun die FORMAT-Angaben für die Partitionen 
auf einem Blatt Papier. 

Der RTOS-UH-Harddisk-Driver ordnet der ersten auf UHF gesetz- 
ten Partition den Systemname H0: zu, der zweiten auf UHF 
gesetzten Partition den Systemnamen Hl:, etc. 


WIE HR TG 
Führen Sie jetzt einen Warmstart des RTOS-UH-Systems mit 


<Shift>+<Undo> 


aus. 
(wissen Sie jetzt, warum Sie die FORMAT-Angaben auf dem Papier 
notieren sollten ?) 


Jetzt können Sie nit 
FORM D Hd: formatangabed 


die erste Partition initialisieren. 

Dabei gehen alle Information auf dieser Partition verloren |! 
Wenn Sie weitere Partitionen eingerichtet haben, initialisie- 
ren Sie diese mit 


FORM D Hl:formatangabel 
FORM D H2:formatangabe2 
FORM D H3:formatangabe3 


Die auf die Laufwerksangabe foldende Information 
(formatangabe) übernehmen Sie bitte den Angaben des SETUP- 
Programm's. 


FEHLERMÖGLICHKEITEN: 


Wenn das SETUP-Programm keine Antwort vom Laufwerk erhält, läuft 
es nicht an. Es muß dann mit UNLOAD entfernt werden, sonst wird 
eine Fehlermeldung ausgegeben. 
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zusätzliche Einbaufunktion CURPOS 


Im Atari wurd die zusätzliche Funktion CURPOS implementiert, die 
die aktuelle Cursor-Position zurückgibt. Sie muß, wie alle nicht 
zum PEARL-Standard gehörenden Funktionen im Problemteil folgen- 
dermaßen spezifiziert werden: 


SPC CURPOS ENTRY(CHAR (1) IDENT,CHAR (1) IDENT) GLOBAL; 


Die Funktion gibt an die beiden Parameter (line,column) die 
beim Aufruf aktuelle Position des Cursors zurück. Der Zeilen- und 
Spaltennummer sind dabei mit dem Summand 32 (hexadezimal $20) 
beaufschlagt, damit die erhaltenen Werte mit der in Kapitel F-I-2 
beschriebenen Terminalemulationfunktion "ESC =',line,column 
direkt zur Positionierung des Cursors genutzt werden können. 


Beispiel: 


MODULE M; SYSTEM; ...... 
PROBLEM; ..SPC CURPOS ENTRY(CHAR(1) IDENT,CHAR (1) IDENT)GLOBAL; 
TEST: TASK; 
DCL (line,column) CHAR (1); 
CALL CURPOS (line,column); /* Merke Cursor-Position*/; 
PUTS ya smae /* ausgaben einer Meldung an eine andere 
Bildschirmposition */; 
PUT TOCHAR (27), '=',line,colum TO ... /* CURSOR auf 
gemerkte Position zurücksetzen */ 
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Allgemeines 


Die folgende Beschreibung unter dem Stichwort MONITOR bezieht 
sich auf zwei Programme: 


1.) Das Programm MONI, das als normale Task im Echtzeit- 
Betriebssystem läuft und von der Tool-Diskette geladen wird. 


2.) Das Programm MONITOR, das durch den Taskaufruf MONITOR 
gestartet wird und nicht im Multitasking-Betrieb läuft, sondern 
alle aktiven Tasks abbricht. 


Beim Aufruf werden alle erlaubten Befehle in zwei Menuezeilen 
angezeigt. Das > signalisiert die Eingabebereitschaft auf der 
Kommando-Ebene. Alle Funktionen werden durch zwei Zeichen aufge- 
rufen. Diese beiden Buchstaben sind in jedem aufgeführtem Befehl 
groß geschrieben, können aber in Groß- oder Kleinschrift eingege- 
ben werden. Der Monitor arbeitet dialogorientiert. Sämtliche Ein- 
und Ausgaben sind hexadezimal. Werden Abfragen nach Start- oder 
Endadressen nur mit RETURN quittiert, übernimmt das Programm 
Default-Werte oder die bisherigen Eingaben. Längere Bild- 
schirmausgaben können durch Tastendruck abgebrochen werden. Die 
ESCAPE-Taste führt prinzipiell auf die nächsthöhere Ebene, ver- 
läßt also eine erwartete Eingabe oder bricht das Kommando ab. 


Unlogische Eingaben werden neu angefordert, zum Beispiel der 
Versuch, eine ungerade Adresse als Start für den Disassembler zu 
wählen. 


Der Befehlsvorrat der beiden Versionen ist unterschiedlich. Die 
Debugging-Kommandos (GO, TraceProg, ShowRegister und so weiter) 
sind nur unter MONITOR verfügbar, die Protokollierungs-Funktionen 
(EdProt, PrinterProt) nur unter MONI. Bei der Beschreibung der 
einzelnen Befehle ist dies jeweils vermerkt, bei Befehlen ohne 
einen derartigen Vermerk kann man davon ausgehen, daß dieses 
Kommando in beiden Versionen verfügbar ist. 


Beachten Sie bitte, daß es bei fast allen Kommandos möglich ist, 
"lebenswichtige" Adressen des Monitors oder des Systems zu 
überschreiben. Ein Absturz ist also nicht vorprogrammiert, aber 
voll und ganz in der Hand des Benutzers. 
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BESONDERHEITEN MONITOR 


Die Vektoren zur Fehler-Behandlung zeigen alle auf den Monitor. 
Es wird jeweils die Art des Fehlers gemeldet (Buserror, Adresser- 
ror etc.), eine genauere Analyse ist anschließend über das 
ShowReg-Kommando möglich. Die Zuordnung der ausgegebenen Meldun- 
gen zu den jeweiligen Vektoren finden Sie unter dem Stichwort 
"Error-Meldungen". 


Der Monitor initialisiert beim Start zwei Buffer ($400-$7ff und 
einen 1KByte-Bereich vor dem Video-RAM). Daten in diesen Berei- 
chen gehen also verloren. Der Monitor arbeitet unabhängig vom 
RTOS und deshalb nicht im Multitasking-Betrieb. Bei seinem Aufruf 
werden laufende Tasks abgebrochen. 
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BESONDERHEITEN MONI 


MONI wird von der Tool-Diskette mit LOAD Fx.MONISR geladen und 
mit MONI aktiviert. Die Task MONI schaltet das Bedien-Interface 
nicht ab. Es ist deswegen über CTRL und A jederzeit erreichbar. 
Dies mag auf den ersten Blick ungewohnt erscheinen, macht aber 
beispielsweise folgende, praktisch sehr hilfreiche, Vorgehens- 

weise möglich: 


- MONI starten 

- CTRL und a 

- mit dem S-Kommando des Systems feststellen, wo das zu untersu- 
chende Modul im Speicher steht 

- mit ESCAPE die Kommando-Ebene des Monitors aufrufen und den 
entsprechenden Bereich disassemblieren. 


Um die Protokoll-Funktion EdProt (Protokoll auf ein Editor-File) 
nutzen zu können, sollte das ebenfalls auf der Tool-Diskette 
vorhandene File EDMONSR geladen und gestartet sein {LOAD 
Fx.EDMONSR -- EDMON). Näheres dazu finden Sie bei der Beschrei- 
bung des EdProt-Kommandos. 


Da bei jedem Zugriff auf den Speicher Dispatcher und Interrupts 
kurz abgeschaltet werden, können auch Adressen gelesen und/oder 
beschrieben werden, die sonst im User-Mode nicht zugänglich sind. 
Dadurch werden natürlich sämtliche Funktionen verlangsamt, was 
aufmerksamen Menschen wahrscheinlich schon bei der Bildschirmaus- 
gabe auffällt. Bei Befehlen wie COmpareMem oder HuntBytes sollte 
deswegen nicht immer pauschal der ganze Speicher durchsucht 
werden, weil dies zu spürbaren Wartezeiten führen kann. Ein 
Zugriff auf nicht existierende Adressen erzeugt einen Bus-Error, 
der die Task MONI suspendiert. 
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Kurzübersicht Kommandos 


co COompMem 

DA DissAss 

DM DumpMem 

FM FillMem 

HB HuntBytes 

MM MoveMem 

SM SetMem 

?? Help 

Nur MONI: 

cD ContinousDump 
EY 5 EdprotokollYes 
EN EdprotokollNo 
122 PrinterProtokoll 
QM QuitMoni 

Nur MONITOR: 

Go GOprog 

RT RTos 

RW RtosWarm 

sB SetBrks 

SR ShowRegs 

ss SinglStep 

TP TraceProg 
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Speicher-Bereiche vergleichen 


Dissassemblieren 
Memory-Dump in Hex-/ASCII- 
Darstellung 


Speicher-Bereiche füllen 
Suchen von Byte-/ASCII-Kombi- 
nationen 

Speicher-Bereiche verschieben 
Speicher-Inhalt verändern 
Befehlsliste zeigen lassen 


Ständiges Dump einer Adresse 
Ausgabeprotokoll in ED.-File 
einschalten 

Ausgabeprotokoll in ED.-File 
ausschalten 

Ausgabeprotokoll auf Drucker 
Task MONI terminieren 


Programm in Echtzeit starten 
Kaltstart des RTOS-Systems 
Warmstart des RTOS-Systems 
Break-Point setzen 
Register-Inhalte ausgeben 
Einzelschritt-Modus 

Programm im Trace-Mode starten 
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Befehl: 

cD ContinousDump Ständiges Dump einer Spei- 
cherstelle 

Beschreibung: 


Der Inhalt einer Adresse wird byteweise ausgegeben. Abbruch mit 
ESCAPE. 


Hinweise: 


Der byteorientierte Zugriff erlaubt auch das Auslesen von 
Adressen der I/O-Bausteine. 


Nur MONI! 
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Befehl: 
co COmpMem Speicher-Bereiche vergleichen 
Beschreibung: 


Der Block von "Startadresse' bis 'Endadresse' wird mit dem Block 
gleicher Länge ab "'Zieladresse' verglichen. Unterschiedliche 
Inhalte werden durch Ausgabe der korrespondierenden Adressen und 
der unterschiedlichen Inhalte angezeigt. Die Ausgabe kann durch 
jede beliebige Taste abgebrochen werden, nach RETURN können neue 
Adressen eingegeben werden, ESCAPE zeigt Ihnen das Prompt- 
Zeichen. 
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Befehl: 
DA DissAss Dissassemblieren 
Beschreibung: 


Jeweils 16 Befehle ab 'Startadresse' werden in mnemonischer Form 
dargestellt. Immediate-Adressierung wird durch das Doppelkreuz 
(#) gekennzeichnet. Ungültige Codes werden in der Form .de.w 
hexzahl und, falls möglich, in ASCII-Form dargestellt. Die 
Ausgabe kann durch Tastendruck unterbrochen bzw. fortgesetzt 
werden, nach RETURN wird eine neue Startadresse angefordert. 
ESCAPE führt zurück zum Kommando-Modus. 
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Befehl: 

DM DumpMem Memory-Dump in Hex-/ASCII-Dar- 
stellung 

Beschreibung: 


Eine Page (255 Bytes) des Speicher-Bereichs ab 'Startadresse' 
wird als Hex-Dump ausgegeben, rechts daneben in ASCII-Darstellung 
(soweit möglich). ESCAPE führt zurück zum Kommando-Modus, nach 
RETURN kann eine neue Startadresse eingegeben werden, bei Betäti- 
gen einer beliebigen anderen Taste wird die nächste Page ange- 
zeigt. 
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Befehl: 

EN EdprotokollNo Funktion "Alle Ausgaben auf 
File ED.PROT protokollieren' 
ausschalten 

Beschreibung: 


Das EN-Kommando schaltet die Funktion "Protokollierung aller 
Ausgaben auf das File ED.PROT' aus. 


Hinweise: 
Alles weitere siehe unter EY! 


Nur MONI! 
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Befehl: 

EY EdprotokollYes Funktion "Alle Ausgaben auf 
File ED.PROT protokollieren' 
einschalten 

Beschreibung: 


Das EY-Kommando schaltet die Funktion "Protokollierung aller 
Ausgaben auf das File ED.PROT' ein. Dazu muß vorher das Programm 
EDMONSR geladen und gestartet sein: 

LOAD Fx.EDMONSR 


EDMON 
Die Task EDMON befindet sich dann, solange keine Daten vom 
Monitor kommen, im Zustand "I/O?". Der Transfer der Daten läuft 


über die Datenstation VI/VO unter dem Namen EDP. 

Hinweise: 

Das Senden der Daten über VO.EDP beinhaltet die Möglichkeit, 
VI.EDP von einer anderen Task als EDMON bedienen zu lassen, 
beispielsweise einem COPY-Befehl, der als Ziel ein Floppy-File 
hat. 


Nur MONI! 
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Befehl: 

FM FillMem Speicher-Bereiche füllen 
Beschreibung: 

Der Bereich von 'Startadresse' bis 'Endadresse' wird mit einem 
String gefüllt, der, wie immer, maximal 60 Zeichen lang sein kann 
und aus einer beliebigen Mischung von Hex- und ASCII-Eingaben 
bestehen darf. Nach RETURN können neue Adressen und/oder Strings 
eingegeben werden, ESCAPE beendet das Kommando und führt zurück 
zur Kommando-Ebene. 


Beispiel: Startadresse: C0000 Endadresse: C0003 
Bytefolge: "Dies ist das Haus vom Nicolaus" 


füllt die Adressen von $C0000 bis $C0003 mit "Dies". 
Hinweise: 
Bei der Eingabe von Hexadezimal-Zahlen muss die Anzahl der 


Hexdigits gerade sein, es sei denn, die Byte-Folge besteht nur 
aus einem Hexdigit. Also $0C00, nicht $C00! 
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Befehl: 

Go GOprog Programm in Echtzeit starten 
Beschreibung: 

Ein Programm ab 'Startadresse' wird ausgeführt. Die einzige 
Kontrollmöglichkeit besteht durch Setzen von Break-Points (siehe 
unten). Vor dem Start werden Daten-, Adress- und Status-Register 
aus dem Buffer geladen (siehe SR-Kommando) und eventuell gesetzte 
Break-Points eingesetzt (siehe SB-Kommando). 


Nur MONITOR! 
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Befehl: 

HB HuntBytes Suchen von Byte-/ASCII-Kombi- 
nationen 

Beschreibung: 


Es wird nach 'Startadresse' und 'Endadresse' des zu durchsuchen- 
den Bereichs gefragt. Der durch 'Bytefolge' angeforderte String 
darf maximal 60 Zeichen lang sein, hexadezimale und ASCII- 
Eingaben können beliebig gemischt werden. ASCII-Zeichen bzw. 
Strings müssen in doppelte Hochkommata (") eingeschlossen sein. 
Gefundene Adressen werden durch "found in: adress' ausgegeben. 
Die Ausgabe kann durch Tastendruck abgebrochen werden. ESCAPE 
führt zurück zum Kommando-Modus, nach RETURN können neue Eingaben 
gemacht werden. 


Beispiel: 


Startadresse: 8000 Endadresse: 9000 
Bytefolge: 4e41"Mon.Doc"8a 


Der Adress-Bereich von $8000 bis $9000 wird nach der Bytefolge 
4e414d6f6e2e446f638a durchsucht. 


Hinweise: 
Bei der Eingabe von Hexadezimal-Zahlen muss die Anzahl der 


Hexdigits gerade sein, es sei denn, die Byte-Folge besteht nur 
aus einem Hexdigit. Also $0C00, nicht $co0! 


Mon. V2/Hannover Dez.1986 F=17-13 


Befehl: 

MM MoveMem Speicher-Bereiche verschieben 
Beschreibung: 

Der Block von 'Startadresse' bis 'Endadresse' wird zur "'Ziel- 
adresse' verschoben. Nach Return können neue Adressen eingegeben 
werden, ESCAPE beendet den Befehl. 

Beispiel: 


Startadresse: F8000 Endadresse: FA000 Zieladresse: F8001 


verschiebt den oberen Teil des Bildschirms der 1MByte-Version um 
ein Byte. 
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Befehl: 

PP PrinterProtokoll Alle Ausgaben auf Drucker pro- 
tokollieren 

Beschreibung: 


Das PP-Kommando toggelt ein Flag für die Protokollierung aller 
Ausgaben auf den Drucker, schaltet also beim ersten Aufruf das 
Drucker-Protokoll ein, beim nächsten aus und so fort. 


Nur MONI! 
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Befehl: 

QM QuitMon Task MONI terminieren 
Beschreibung: 

Die Task MONI wird in den Zustand "DORM" versetzt. 

Hinweise: 

Dieser Befehl hat keinen Einfluß auf den Zustand der Task EDMON! 


Nur MONI! 
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Befehl: 

RT RTos Sprung zum RTOS-System 
Beschreibung: 

Neustart des RTOS-System. Es handelt sich dabei um einen 
sogenannten Kaltstart, das heißt, das System wird komplett neu 


initialisiert. Sämtliche User-Daten gehen verloren. 


Nur MONITOR! 
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Befehl: 
RW RtosWarm Warmstart des RTOS-Systens 
Beschreibung: 


Rückkehr ins System in Form eines Warmstarts. Sämtliche Daten 
bleiben wie vor dem Sprung in den Monitor erhalten. 


Nur MONITOR! 
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Befehl: 
SB SetBrks Break-Point setzen 
Beschreibung: 


Maximal 10 Break-Points können gesetzt werden. Diese werden vor 
dem Start eines Programms durch GO (siehe oben) eingesetzt, die 
Befehle an diesen Adressen werden gerettet. Läuft das Programm 
auf einen dieser Break-Points, werden in der Fehlerbehandlungs- 
Routine zunächst die geretteten Befehle wieder eingesetzt, und 
dann wird in den Single-Step-Modus (siehe dort) verzweigt. Ein 
Break-Point wird gelöscht, indem er auf Adresse O0 gesetzt wird. 
Nach der Eingabe von SB wird jeder Break-Point einzeln angezeigt. 
Durch Drücken von B kann dieser verändert werden, jeder andere 
Taste zeigt den nächsten Break-Point an. 


Beispiel: 


0AO000 B: © 
000000 

00E000 B: CO0O 
000000 B: FO000 


Break-Point 0 wurde nach Drücken von B gelöscht, Break-Point 1 
übergangen, Break-Point 2 von $E000 auf $C000 verändert, Break- 
Point 4 neu gesetzt auf $FO0000. (Die restlichen sechs Ausgaben 
sind durch die drei Punkte gekennzeichnet.) 


Hinweise: 

Will man ein Programm durch Setzen von Break-Points und den GO- 
Befehl testen, sollte man sicherstellen, daß diese auch erreicht 
werden. Denn der Monitor hat dann keine weitere Kontrolle über 
die Programmausführung. 


Nur MONITOR! 
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Befehl: 
SM SetMem Speicher-Inhalt verändern 
Beschreibung: 


Maximal 60 Bytes ab '"Start-Adresse' können mit einer beliebigen 
Kombination von Hex- und ASCII-Zeichen beschrieben werden. Nach 
Eingabe der Startadresse werden 16 Bytes in Hex- und ASCII- 
Darstellung angezeigt, darunter wird die Eingabe erwartet. RETURN 
beendet die Eingabe, ESCAPE wirkt in dieser Zeile wie UNDO. Der 
neue Inhalt wird zur Kontrolle noch einmal angezeigt. Durch 
RETURN kann eine neue Startadresse gewählt werden, durch ESCAPE 
gehts zurück zum Kommando-Modus, nach Betätigen jeder anderen 
Taste können die nächsten 16 Bytes editiert werden. 


Hinweise: 


Bei der Eingabe von Hexadezimal-Zahlen muss die Anzahl der 
Hexdigits gerade sein, es sei denn, die Byte-Folge besteht nur 
aus einem Hexdigit. Also $0C00, nicht $C00! Vorsichtige Menschen 
sollten nur jeweils 16 Bytes editieren, da die Kontroll-Ausgabe 
nur diese anzeigt. 
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Befehl: 
SR ShowRegs Register-Inhalte ausgeben 
Beschreibung: 


Die Daten- und Adress-Register, das Status-Register, der Pro- 
gramm-Zähler, der User-Stackpointer, der Super-Visor-Stackpointer 
und der durch den Programm-Zähler bezeichnete Befehl werden 
ausgegeben. Bis auf den Befehl selbst können alle Werte verändert 
werden. Es gilt folgende Syntax: 


An: Adress-Register n (O<=n<8) kann verändert werden. 
Dn: Daten-Register n (0<=n<8) kann verändert werden. 
PC: Programm-Zähler setzen. 

US: User-Stackpointer setzen. 

SP: Supervisor-Stackpointer setzen. 

SR: Status-Register verändern. 


Der Doppelpunkt muß mit eingegeben werden! 


Nach jeder Änderung werden die Register wieder angezeigt. Rück- 
kehr zum Kommando-Modus wie immer mit ESCAPE. Es handelt sich bei 
diesen Registern, dem Programm-Zähler usw. natürlich nicht um die 
des Monitors. Zunächst wird lediglich ein Buffer mit diesen 
Werten beschrieben. Diese Werte werden dann gesetzt für den 
Trace- und Single-Step-Befehl und zu Beginn eines GO-Befehls. 
Außerdem werden nach jeder Exception die Register-Werte in diesen 
Buffer kopiert, um den aufgetretenden Fehler analysieren zu 
können. 


Beispiel: 


. d0:1 


setzt Daten-Register ® auf 00000001 
Hinweise: 


Vorsicht bei Manipulationen des Supervisor-Stackpointers bzw. von 
AT (was auf dasselbe hinausläuft)! Es ist ein gesonderter Stack- 
Bereich für die zu "tracenden" Programme vorgesehen. So wird auch 
der Programmzähler und das Status-Register auf diesem Stack 
abgelegt. Eine unbedachte Änderung des Stackpointers kann also 
leicht den Stack des Monitors oder andere wichtige Arbeitsadres- 
sen zerstören. Dies gilt natürlich auch für Programme, die durch 
Trace oder SingleStep getestet werden. Außerdem ist der Stack- 
Bereich für diese Programme auf 400 Bytes begrenzt. 


Nur MONITOR! 
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Befehl: 

ss SinglStep Einzelschritt-Modus 
Beschreibung: 

Ab '"Startadresse' wird ein Programm im Einzelschritt-Modus ausge- 
führt. Nach jedem Befehl werden alle Register, Status, die 
Stackpointer, der Programmzähler und der nächste Befehl ange- 
zeigt. Durch RETURN kann der Programmzähler verändert werden, 
ESCAPE führt zurück zur Kommando- Ebene, bei Betätigen einer 
beliebigen anderen Taste wird jeweils der nächste Befehl ausge- 
führt. 

Hinweise: 


Das getestete Programm wird real ausgeführt, schreibt also 
eventuell auch in Adressen des Monitors. 


Nur MONITOR! 
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Befehl: 

TP TraceProg Programm im Trace-Mode starten 
Beschreibung: 

Ein Programm wird ab 'Startadresse' im Trace-Modus ausgeführt. 
Überschreitet der Programmzähler die angegebene "Endadresse', 
werden die Register angezeigt, und es wird in den Single-Step- 
Modus (siehe unten) verzweigt. Vor dem ersten Befehl werden 
Daten-, Adress- und Status-Register mit den Werten aus dem Buffer 
geladen (siehe SR-Kommando). 


Nur MONITOR! 
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Befehl: 

?? Help Befehlsliste zeigen lassen 
Beschreibung: 

Die möglichen Befehle mit den entsprechenden Kommandos in Groß- 


buchstaben werden angezeigt. Dasselbe geschieht übrigens auch bei 
Eingabe ungültiger Kommandos. 
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"Error '-Meldungen 


Nur MONITOR! 


Soweit nicht einzeln vermerkt, werden die Vektoren bis inclusive 
Vektor-Nummer $3f auf eine Routine gelegt, die die Meldung 
'"unuerror' ausgibt. 'unu' steht dabei für 'unused'. 


Meldung Fehlerart Vektornummer 
buserror Bus-Fehler 592 
adrerror Adress-Fehler $03 
ibferror Illegaler Befehl 504 
dvzerror Division durch Null $05 
chkerror CHK-Befehl 506 
trverror TRAPV-Befehl $07 
prverror Privilegverletzung $08 
aoperror Opcode $Axxx SsoA 
foperror Opcode $Fxxx SOB 
niierror Non-init. Interrupt $OF 
faierror Falscher Interrupt $18 


Der Trace-Vektor ($09) wird natürlich vom Trace- und Single- 
Step-Kommando benutzt. 
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GCRUCOY 
VOLL 


00000 
KOLUZATWESTEG 
VIOEHG 
VELOUN 
CHOAIO 
VOOEO 
OSLO 


[SIHISTERR.E 
UCONOO 
ERLSTE NUTRIR] 
CNOUNO 
GOUNIGO 
WAOBO 
WOOOOL 
WOOUOn 
UUHOUO 
GSUVIOD 
MOOUOU 
[NIPTETATETF] 
VAOOYU 
[PTRTWTRTWIR) 
VUOHOO 
VOOUNO 
VOILOG 
OSUOGOU 
OUHEOO 
ONMIGOO 
SCUUOOO 
VO0OHUD 
VOUOHO 
DOOONO 
900090 
ONANOHO 
[B119 107818) 
HO0ODI0O 
DOAOHUHOO 
000000 
OOU000 
VOHOGO 


DOFFFEÜR 


> WOFFFCOS 


VOFFF 


SuFFFACE 
SOFFFAO? 
GOFFFAUF 
VOFFFAUB 
VOFFFAUD 
SOFFFAUF 
WOPFFeANl 
GOFFFALI 
UUFFFALS 
VOOFFFAL? 
SUFFFALY 
UOFFFALB 
VORFFAILD 
OOFFFAIF 
VOrFFAZL 
OOoFFFA23 
VOUFFFAZS 
OUFFFA2T7 
OKEFFAZF 
GOFFFA2B 
OUFFFAZD 
VOFFFAZF 
OUFFBBOO 
VOFFBEO2 
OOFFBSEOU 
VOFFBROS 
GLUHDOOA 
VOOOOO7O 
MOUOILON 
O0000L14 
QUVVULLB 
VGOOOUL28 
VUOOUOV13U 
00000138 


VO0OUH000 


nun 


Dute: 


ver 


Yonacı INPLEMENTATTON-DA A... 


ACOS EAU 
AURBIN  ERU 
AcıBM EOU 
ATIAH1S EQU 
ASLALD EI 
Ac[A3S EU 

SU ENG 
MFP EQJ 
AGPIH ES 
MEAR EQU 
MDDFE EQU 


MIERA ZU 


MIERE  EGU 
MHIPRA EQU 
MIPRE EUU 
MISRA EQU 
MISRB EQU 
MIMRA EU 
MIMRB EQU 
MVR EQU 
MIACR  EQU 
NTBER EiU 
PITEDER EQU 
MTACR EGU 
M1BOR EUu 
MTCDR EOU 
MIDOR EQU 
MSER EQU 
MUCR EDU 
MRSR ,. EUU 
MISR equ 
MDR EQU 
PSGA EQu 
PSGD EQU 
DISK EQU 
OMACR EUU 
PPLDN EQuU 
IRVSIV EQU 
IRPAIV EQU 
IRCLIV EQU 
IRACIV EQU 
IRTBIV EQU 
IRRBIV EQU 
IRRIIY EQU 


5icı 


DAR: 


hunmoser 


koerth 
B. Kroll 


1IRT - Hannover 


4.11.86 


1& 

b7E 

T7FE 
IFFFOO 
ACLAISHZ 
SFFFCUL 
AUlFUS+Z 
SFFFACL 
MFP 
MEP+Z 
BEP+U 
MEPIE 
MEP+B 
MEPrLO 
FIFRI1Z 
MFP+Ih 
MFPAl& 
MFP+18 
MEPAZU 
MFPIZZ2 
MFF+Z2U 
MFP-+26& 
MFP+28 
MEP+30 
MEP+A2 
MFP+34 
MFPAı36 
MFP+38 
MEP+4U 
MFP+UZ2 
MFr+UY% 
MFP+L& 
+FF88U0 
TFFELO2 
LEFBAOH 
IFFB60S 
10 

70 
3100 
sııu 
+$118 
sı28 
3130 
5138 


ACTA-PARAMTER INSIDE I&-BUFFER . 


EQU ° 


W. Gertn 


10: 093 09 
Atr: Colour 


AUIA- BUSFER- SIZE 
READ -SUFFER -MASK 
TRANSM. BUF MASK 
AC1ı STATUS KEYBORD 
DATA-ADR 

ACZ STATUS MIDI 
DATA-ADR 

MFP 68901 START ADR 


GENERAL PURPOSE 170 


ACTIVE EDGE REG. 
DATA DIRECTLON REG. 
INT. ENABLE REG. A 
INT. ENABLE REG. B 
Int. PENDING REG. A 
INT. FENDING REG. B 
INT. IN-SERVICE R.A 
INT. IN-SERVICE R.8 
INT. MASK REG. A 
INT. FIASK REG. B 
VECTOR REG. 

TIMER A CONTROL REG 
TIMER B CONTROL REG 
TIMER C+D CONTREL R 
TIMER A DATA REG 
TIMER B DATA REG 
TIMER C DATA REG 
TIMER D DATA REG 
SYNC CHARACTER REG 
USART CONTROL REG 
RECIEVER STATUS REG 
IRANSMIT STATUS REG 
USART DATA REG 
SOUNDCHTP ADR. "REG. 
SOUNDCHIFP DAT.-REB. 
DISK DATA REG. 
DMA-CONTROLL--REG. 
LDN DF PP-DRIVER 
VERTICAL-BLANK IID 
PARALLEL PORT IID 
CLOCK IID 

ACIA IID 


TRANSMIT BUFFER IID 
RECEIVE BUFFER IIN 
RING INDICATOR IIDO 


DATA REGISTER 


WERKE SeEeuNzZR Lu Ann < 


zueenn nd 


000000 
000000 
000000 
0000009 
000000 
000000 
000000 
000000 
0000090 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000009 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000009 
000500 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
0000006 
000000 
000000 
000000 
000000 
000000 
000000 
0000900 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


00000A 
000010 
000010 
000016 


00000004 
00000008 
00000088 
00000108 
0000010A 
DOOOOOLOC 
0000010E 
00000110 
00000114 
00000118 
00000119 
0000011A 
0000011C 
VO000011E 
00000120 
00000121 
00009122 
00000126 
0000012A 
OHOOOOLZE 
00009132 
00000136 
V0OVOO3AZ 


N00009A2 
VOONOOJAH 
000003A8 
HO0003AA 
O00009AE 
00000382 
00000382 
00000383 
00000384 
00000388 
V00003BC 
000003C0 
00000314 


ONOOOOHOOONO 
00000010 
496D70322E30 


AEB1BF9SOLLS 
496070304174 
61726920322E 
IOFF 


RSR: EtGu DARıu RECIEVER STATUS REG ıt 
AERB: EQU RSR-tS READ-BUFFER (CYCEL)I . 
ACTBE ESuU ACRB+ACRBrI+L TRANSM. BUFFER« 
ACRR: EQU ACTIBACTBM+I READER-READ PT+ 
ACRWE EQU ACRR+2 RERDER-YURIT PT 
ALCTR: EQU ACRW+Z2  TRANSM. READ n 
ACTWE EqQu ACIR+2  IRANSM. WRITE PTR u 
ACRTID: EQU ACTWr2 ACIA RECEIVER-TID E 
ACTTID: EQU ACRTID+UL ACIA TRANGI. 110 a 
ACTON: EQU ACTTID+G IMITTER ON MASK * 
ACIUFF: EQU ACTON+L INPUT-SUTICH 5 
ACIS: EQU ACTON+2 INPUT-SWITCH Di 
ACRCH EQU AUTON+U READ-LCUUNTER ® 
ACTC: EQU AURC+2 TRANSMIT-COUNTER ® 
ACSTR: EQuU ACICH2 STATUS-REGLSTER 
ACEMU: EQU ACSTR+ı EMULATOR-FILAU a 
ACRRI: EQU ACSIR+2 Al (TE: FAR RECEIVER 
ACTAı: EQU ACRAL+Y Al (CE) FOR MITTER 9 
ACCTID: EQU ACTAL+4 CmimD-11D R 
ACRCAD? EQU ACCTID+U READER CE-TEXT AD + 
ACTCAD: EQU ACRCAD+U TRANSM. CE-TEXT AD! 
ACLEN: E0U ACTCAD+H ARRAY-LENGTH [1 
ACIABU: EQU SUnCLEN BUFFER SIZE ACIA 
a a a ae a a a en ee 
# BITS IN AUSTR E 
* * 
% 7 ND COMIANDS “ 
= & A 
* 5 n 
* 4 CLEAR IF TX IR PENDING [2 
* 3 BINARY MODE # 
” 2 MARK NEXT READER " 
= 1 MODE (A/B/C) u 
® o AMITTER CLEAR (KON/OFF " 
%* u 
"uucnc CENTRONIX-PORT AND FLOPPY DRIVE I& RBüUrF.... 
STAPSG EQL ACIABU STATUS BYTE UF SOUND“ 
PPTIO EQU STAPSG+2 TID OF Tas TO wAnE n 
PPSTAT EQU PPTID+U SOFTWARE STATUS REG 
PPCAD EQU PPSTATr+2 CURRENT DATA ADR # 
PPCNT EQU RPCAD+U BYTES STILL 10 TX rn 
CENLEN EQU PPCNT+Y ARRAY-LENGTH a 
IRMUDE EQU CENLEN MODE IN IR ROUTINE 
IRSTAT EQU IRMODE+1 ANSWER STATUS OF IR a 
WSPADR EQU IRSTATı1 ADR OF TASK-WORKSP. % 
FMTID EQU WSPADR+UL TID OF FILEMANAGER x 
TIMOUT EQU FMTID+4 T1MEOUT COUNTER N" 
OLDSP EQU TIMOUT+U OLD STACIK POINTER # 
IsBL equ OLDSP+4 BUFFER-SIZE EB 
FEEESEEBE EHNETEFE SH ESREÄEFERE EIER 5a A SEGSEESEÄNFENEBSFIDNENER- 
* LIVING CODE  ’ImPL? * 
a a er 
RODRG ° el 
DC 0,0, 0, 0, 50010 ” 
DcE.B ?’ Imp2.0° " 


Runen 


HEAD-LINE OF IMPLEMENTATION „uneuunenonnent 


DC 


oc.8 


+AEBL1, 3BF95,11& 


"ImpsAtari 2.0° 


#2+1 9437 4 


„err ” 


0000924 
000024 
000024 
00002A 
GO002C 
00002E 
000030 
0000368 
000038 
00003A 
00003C 
900042 
V0COuh 
DOOOU& 
000048 
DOOOKE 
000050 
000052 
0009054 
000054 
000054 
00005A 
O0O005E 
0000962 
000066 
00006A 
00006E 
000072 
000076 
00007A 
00007E 
000082 
000086 
000088 
000088 
000088 
000088 
000088 
000088 
000088 
000088 
00008E 
000090 
000090 
000090 
000096 
000098 
00009€E 
0000A0O 
0000AU 
0000A6 
0000A&8 
0000AB 
0000AA 
000080 
000082 
00008& 
000008 
0000BA 
0000BA 
000086 


REBLEFI50309 
0000 
300 
0000 
AEB1BF?50309 
0002 
OBO0 
0000 
AEB1BF95U309 
0004 
0300 
0000 
AEB1BF950309 
000A 
2200 
0000 


AEB1BFI502BF 
41318000 
41328200 
55408203 
42318002 
42328202 
43318006 
4332206 
SOS0BAOG 
41338400 
42338402 
43338406 
0000 


AEB1BF9I5022B 
03C4 


AEBABFISOOGF 
8180 

2341434 94131 
FFFB 
000000F2 
OBEC 

0000 


8180 
235253323332 
FFFB 
000000F2 
OBEE 

0002 


8180 
23H DH 9444933 


a an ea u 


# DEVICE FACILITIES (50/DD-0P.) INIT-TABLE 8 
[e/>2 TAEDL, 4DF95, 11048241 9#97 * 
[eins TONOH START-LDN B 
DC 23300 LON 0 = Allal a 
DC o x 
DE TAEBL, EBF9IS,( LO#rZ2+1 #97 
DE 30002 START LDN 
DC tOBOO LDN 2 = ACIAZ USART 
De © A 
DC TAEB1, 3BF9S, ( 1042113437 A 
DC 1000, START LDN = 
DC $03090 LDN 4 = MID! # 
DC ° STOP MARK ® 
oc SAEBL, 5BF9S, t10#2+1 9437 " 
DE LOOOR START LDN a 
DC 32200 LDN1O = PARALL. PORT# 
DC 30000 STOP-MASK ” 
kKeunaman on nme nn nn # 
4 DEVICE-MNEMO TO LON/DRIVE-TABLE [2 
De SAEBL, IBF9S, (9#241 #97 # 
DE.B "AL?,SEN),u ACTIAL = 
DC.B ’n2',382,0 ALIA2 USART = 
DC.B ’"UL?’,182,3 ACTA2-BUFF’D,NO LF 8 
DC.B ”81°?,382,2 BUFFEREU SCC1 ’ 
0C.8 '82°,782,2 BUFFERED SCC2 R 
DC.B ?’C1?,380,& SCANNED SCCI1 Li 
DC.B ’Cc2’,782,6 SCANNED SCC2 # 
DC.B ’PP’,TBA,U PARALLEL PORT * 
DC.B. ’A3?,38u,0 MIDI ” 
DC.B ’83°,364,2 BUFFERED SCC3 MIDI 
Dc.8B ’C3’,484,6 SCANNED SCC3 MIDI Ar 
oc °o END-MARKER a 
* 1. REMOVE LAST DE 0 AND MOD DEV'SHLDN+DRIVE &% 
#* 2. MAX. IDENTIFIER-LENGIH 15 5 BYTES % 
®* 3. THE LDN-BYTE MUST BE FLAGGED (+430) ® 
* FLAG 15 USED AS TEXT-LIMITER En 
* 4. CLOSE WITH DC © ZERO-TEXT=END-MARK # 
yenseeea ee wur 
® RERUEST INTERRUPT-BUFFER-SPACE # 
DC SAED1, SBFIS, (742419097  IODP& ” 
oc I6&BL REQU. SPACE ACIAL-I30 
a a a nn a run Mr 
* INSTALL TASK-HEADERS SCC1/901/5C03 ” 
DC TAEB1, TBFIS, (14241 )#37 - TASK-INF. # 
DC.8 281, 380 RES. 10 % 
DC.B ’sACIA1? NAME E'3 
DC -5 PRIO # 
DC.L OPNAME+14O VTH ” 
oc BACIA1-S START-PC * 
DE o LDN (CONSOLE) * 
EIER ETELINETETTEOPORTRERER TR TIERET 
DC.B 581,380 RES. 1/0 " 
DC.B '2RS5232’ NAME = 
DC -5 PRIO * 
DE.L OPNAME+LUO YTH %* 
DE QACIA2-% START-PC * 
dc 2 LDN = 
Huosnonnnsunnanenaununennemnun nennen anne nen un tt 
DC.B 581,380 RES. 1/0 # 


DC.B ’ 2 MIDI3’ NAME 


cooucz 
VCOOCH 
OOHCCE 
VOHOCA 
GOOUCE 
GOHVEL 
ODVOCLE 
UJCOD4 
VO00D& 
OOUHDA 
ODOUDE 
GOHCDE 
GONODE 
KOOLEN 
VWUOOEN 
SOVOEO 
GONVEO 
ONdVE& 
O0O0O0E& 
VVOOES& 


VOOOEE 
OOOJEE 


VISFS 


VCOUFE 
OOUUFE 
vUu102 
VOOLO& 
905108 
V0010C 
VOVO10E 
OUO114 
vOuL1& 
000118 
VOOLIE 
000120 
000122 
v99124 
00012& 
000128 
GOO12A 
V0012C 
OVUL12E 
Nn00130 
OO0134 
000138 
00013C 
090142 
000144 
000146 
000148 
00014A 
000LUC 
000150 
000156 
NOOLSC 
000162 


00016A 


FFFB 
VBUOVOOHFZ 
BL Ier- 
G004 


235050UF5254 
FFFD 
OOOD0HF2 
oCco2 

OUOA 


VOOD 


AEBI1BFFSOR7B 


13FCOOFAGOFF 
Fa23 


L3FCHOVZOHFF 
FA2S 
13F CO051L00FF 
FAID 


HABBOBLA 
SHUUHVA& 
4281 
20380886 
2240 
OLBUOVVOTFUO 
4200 

240n 
VOUBVVOCHLHOE 
Rot 

20D1 

w2cı 

2651 

2001 

22C1 

2091 

2261 

2680 
21C00885 
21C00958 
21C02081A 
263000001400 
9483 

2042 

2842 

E28B 

4258 
SICBFFFC 
377C00180029 
397C00UFF0022 
397COF890024 
I9FCOO0O2OOFF 
820A 
S3FCFFFFOOFF 


DE -5 PRIO * 
DE.L OPNAME+14O VTn * 
Dc GACIA3-S START-PC * 
DC 4 LDN “ 
Monuornneuheunn un re nern run nen nennen un 
DC.B +81, 580 RES. 1/0 a 
DC.8 ?’sPPORT? NAME * 
vc -3 PRIO #* 
DC.L OPNAHME+14O VTH # 
DC BSCENT-T START-PC % 
DE 10 LDN * 
KauennoSTOP-MÄRK „unurernnone rennen nenne nenne 
oc 6} EL 
RR THHTRIAENSHNSSHRRETHÄSEN TERRA HERE BESUCHTEN AR 


a INITIALISATION-SEQUENCE 


DC SAEBL, T8F95, (15#2-+1 9837 


#uun.. JNITIALIZE TIMER °C’ SYSTEM LLÜCK „nern. 


MOVE.B =394, MTCOR TIMER C SET * 
#.uun. INITIALIZE TIMER ’D’ RS232 BAUDRATE „u... 
MOVE.B =:102, MTDDR TIMER D SET 9600 Bd + 
MOVE.B =%51, MTEDER TIMER D+C START * 
#unnnn IF COLD START: SET VIDEO RAM „uuennennen net 
TST.L VIDEDP COLD START ? ” 
BNE InITı B: IF NOT * 
ELR.L Di USE TD CLEAR ”* 
MOVE.L. RAMEND, DO RAM END ADRESS # 
MOVEA.L DO,A1 LOAD RAM END ADRESS * 
SUBl.L =47F00,DO NEW SCREEN DEGIN # 
CLR.B DO FORGET LAST BYTE #* 
MOVE. 00,02 SAVE SCREEN BEGIN * 
SUBI.L =TEMUL+TE, DO NEW MARK END " 
MOVEA.L DO, Au LOAD MARK END ADRESSH 
MOVE.L (ALI,CAOI* MAKE NEW MARK. + 
MOVE.L DI,(AlD4 CLEAR OLD MARK RL 
MOVEA.L (AL),A3 ADRESS BACI-PTR. ar 
MOVE.L (AL), (ADI+ SET BACK-PTR. a 
MOVE.L D1,(Al)+ CLEAR OLD MARK . 
MOVE.L (A1),(AO) SET NEW MARK * 
MOVE.L Di,(A1) CLEAR OLD MARK * 
MOVE.L D0,(A3) STORE NEW FORW. -PTR.%* 
MOVE.L DO, RAMEND STORE NEW RAM END * 
MOVE.L DO, SERTOP SET SERTOP NEW * 
MOVE.L D2, VIDEOP STORE SCREEN BEGIN #+ 
MOVE.L =TEMUL,DS EMUL STACK LENGTH * 
suaB.L D3,D2 IDP4 POINTER ”* 
MOVEA.L D2,AO ADRE:SS EMUL STACK hl 
MOVEA.L D2,Au SAVE IDPu * 
LSR.L =1,D3 LENGTH/2 [3 
INITO CLR taaır CLEAR STACK * 
DBF 03, INITO B: NDT READY a 


MOVE =24, SCRLEN(Au) SCREEN LENGTH = 25 # 
MOVE =$9F,SCRCOLLAU) COUNT FOR CLEAR D 2 
MOVE =SF8B, SCRCO2 AU) COUNT SMOOTH SCROL+ 


MOVE.B =2, FF820A SYNC INTERN/SO Hz * 


000172 
00017A 
000182 


O0O01L8A 
00018A 
OUO1BE 
000192 
OLOL9FU 
000196 
00019C 
VOOLFE 
0001A4 
VODLAA 
O001AE 
0001B4 
000188 
V001BC 
O001BC 
VO001LCO 
0001LC4 
O001C8 
VO01CE 
000102 
000108 
0001DC 
O001E0 
VODLE2 
0001E8 


0001F0 
oO91ıF2 
0001F8 
OOO1FT 
000200 
000202 
NOO204 
000208 
00020C 
O0021U 
000214 
00021A 
VO0O21E 
000224 
00022A 
000230 
000234 
00023A 
00023A 
00023A 
V0H23C 
000ZU0 
000240 
0002uu 
000248 


000250 


8240 
AIFCO7 VOOGFF 
ezu2 
S33FC07700OFF 
ezuu 
3IFLO0070UFF 
82u6 


ZU 38081A 
21C2083A 
2202 

EO8SA 
13C200FF8203 
EOBR 
13C200FF8201 
F2BCOV0014HOND 
21C1083E 
D28C0000002C 
21C1081E 
42B8084HA 


2878083€E 
h2&BUHOL 
42680006 
377C000930008 
2078081E 
DIFLOO000320 
22700836 
H3EWOLB 
2449 
203C000002F8 
0839000700FF 
FRO1 

670E 
OB8EBO0030004 
DIEAUOOL 
303C017C 
0302 

30D9 
SICAFFFC 
20780836 
HEABOOOO 
42680002 
OBEBOOU20002 
42680010 
377C0015000E 
377C001LEODLZ 
9377C0003001U 
426B0016 
OBEBU0020004 


7003 
2278085E 


20780846 
2159012A 
217COOFFFCO2 
0000 
217C00FFFCOG 
0004 


#unene 
INITL 


INIT2 


INTTI 
INITU 


Beunne 


MOVE =$FFFF,SFFB2RC CILUUR PLANE © D 
MOVE  =30700, IFF8242 PLANE 1 » 
MOVE  =50770, SFF&2UN PLANE 2 * 
MOVE  =30007, 'bFFB246 PLANE 3 * 
ENTRY FUR ABORT zennsnnenunnnnannenn nn nun 
MODVE.L VIDEOP,D2 WARM START SET SUREERr 
MOVE.L D2, IDP3 HIOE SCREEN-ADR. 5 
MOVE.L D2,Di SAVE POINTER m 
LSR.L =8,D2 SET VIDEG-CHIPZ it 
MOVE.8 D2, TFF8203 LOW BWSP " 
LSR.L =8,D2 HIGH BUSP m 
MOVE.B D2, SFrezo1 “ “ 
SUB.L S=TEMUL,DL TERMLGAL-BUF-FER PIR 
MOVE.L Di, IDPu SET IDP4 NEW “ 
ADD.L =IULEN,Di m 
MOVE.L O1, FUNKP FUNI-T LONKEY-PTR. Pr 
CLR.L 1DP7 ELCHR NEW SCREEN-PIR« 
CLEAR SCREEN „ennennnnnnnnennnennenne nn nen 
MOVEA.L IDP4,A3 TERM.EMUL-POINTER 
CLR STATZ(A3) SET TO HICH RESÜLUT. 
CLR STATBLAY) CLEAR ESC-STATUS st 
MOVE  =3, COLNUR(A3) SET CELOLR TO PAL.L % 
MOVEA.L FUNKP, AU FUNZTIONFEY-PIR. " 
ADDA.L =FIKLEN, AO CHAR. TABLE-P IR. f 
MOVEA.L IDP2,A1 GET TRBEL INDEX n 
LEA ASCtALY,AI CHAR SET FROM EPROM % 
MOVERA.L AL,A2 MAKE A CUPY " 
MOVE.L =760, Du COUNTER FÜR 95 CHARS“ 
BTST  =7,MFP TEST MONITOR-TYP » 
BEW.S AINITZ B: IF HLUH-RES. MON u 
BSET =HILOW, STATZ(AZ) SET TO MIDDLE RES + 
ADDA.L UA2),AL REAL CHAR SET « 
MOVE =380, 00 COUNTER FOR 95 CHAns« 
ADDA.L (AZ), Al REAL CHAR SET x 
MOVE CALIF,CAOI* CHAR-TAB TO Rat f 
DAF Da, InITu LOOPINE “ 
MOVER.L IDP2, Av GET JUMP TAUEL 2 
JSR ELRSCR( AU) CLEAR SCREEN “ 
CLR STATLLA3) CLEAR CONSOL-STATUS * 
BSET  SCAPSF,STATLEAI) SET CHPSLOC ” 
CLR CHAR(A3) CLEAR CHAR.-REPEAT * 


MOVE =316, CURTEAI) SET TURSOR BUINM DE. 
MOVE =REP, AUTOD(A3) SET DELAY RATE 
MOVE =RATE, AUTOS(A3) SET STEP RATE # 
CLR KEYADR(A3) CLEAR MAUS INPUT 4 
BSET =CURB, STATZ(AD) CURSUR BLINK DN at 
INITIALIZE ACIAS AND MEP UL nennen nt 
ACIA 1/2 SOFTWARE-STATUS-RESET .. 


51 


nnunench 


MOVEQ =1403,00 FOR RAPID MÜCESS 2 
MOVEA.L UITIDP,AI USER-TID-FOLNTER ü 
ACIA 1 „nerunnuunuur onen nen en nn ann nenn una! 
MOVEA.L IDP&,AO IR-POINTER a 


MOVE.-L (Al hr ACCTIDCAO) STORE TID n 
MOVE.L =ACTA1D, DARıAO) STORE ADR DATA REG 


MOVE.L =ACIA1IS,RSROAU) STORE RECIEVE REG ı 


LOU2S8 
vUU2SC 
won? 
VU02U8B 
MOZAR 
sO028C 
vu 26E 
"00272 
„BO278 
„00273 
„0027C 
FOLZEH 


00288 


SODZFE 
CO02I% 


VUO2SC 
„WOZFEC 


UVUZA, 


VLO2AC 
UNOZAC 
JUV2BO 
VOO2BH 


VOO2BC 


WOO2CH 
N002C8 
WOO2CE 
MO2DO 
00202 
"00204 
v002D& 
VOH2DE 
„OD2DE 


VOODES 
VOOZEE 
VOV2F& 
VOOZFE 
VHU308 
VVOBOE 


VOCHLE 
000316 


VOOU31E 
000324 
000324 
00032A 
Cuo330 
000336 


SY6BUL1E 
117C00010121 
4USFYFUOFFFIUO 
1480 

pr 7.) 

1481 
11410119 
117CUNB&S0L18 


LHIE3BOL36 
21597012A 
2Z17COOFFFAZF 
DODOU 
217C0GFFFA2B 
0054 
S3S8011E 
L3FCUVFBOUFF 
Fa27 


19FCHGHNLUOUFF 
FA2D 
13FLUVOVOLGOFF 
FA2B 


MIEBUL3E 
2159012A 
2ZL7COUFFFCOG 
0000 

21? COOFFFCOU 
0004 
SIöBUL1E 
4SFIVOOFFFEOH 
1480 

7295 

1481 
114101197 
117C00850118 


L3FLON4ODUFF 
FA1T 
AIFCHONVOOFF 
FAO3 
13FC00000U0FF 
FAOS 
13FC005400FF 
FAO7 
13FCOVELOUFF 
FAO9 
13FCO0S4OOFF 
FAL3 
13FCOOEL1ÖUFF 
FALS 


L3FLOOVOGOFF 
Fa2r 
WAIYOOFFFAZF 


26C3LU00OFF9C 
223CH09UFFFC 
RUILOOOOFFCO 
263C0000FFFF 


SUBQ 
MOVE.B 
LER 
MOVE.B 
MOVEQ 
MOVE.B 
MOVE.B 
MOVE.B 
Bunan. ACIAZ 
LEA 
MOVE.L 


MOVE.L 


MOVE.L 
SuBQ 


MOVE.B 


MOVE.B 


MOVE.B 
Henuns „ACIA 3 

LEA 

MOVE.L 


MOVE.L 


MOVE.L 
SUBR 
LEA 
MOVE.B 
MOVE 
MOVE.B 
MOVE.B 
MOVE.B 


Kunann INITMFP 68901 „onuunn. 


=1, ALTE AO) SET "ALL DONE? #* 
=1, ACEMUL AO) EMULATION ON * 
ACIRIS, AZ ACIA ADR * 
DO, (A2) MASTER-RESET # 
=396,D1 READY TOD READ * 
D1,(A2) READY TO READ ” 


D1,ACTOFFLAO) SET OFF CONTROL BYTE#« 
=356, ACTONAO) SET ON CONTROL BYTE 
= USART len nnuennenere nennen 
ACLEN( AO ),AO IR POINTER * 
{A1)+,ACCTIDIAO) STORE TID % 


ZMUDR, DAR(AO) STORE DATA REG ADR r 


=MRSR,RERCAO)I STORE RECIEVE REG 


=1, ACTCCAO) SET ’ALL DONE? ” 
=498, MUCR /16, &BITS, 1START * 

2STOP, NO PARITY ar 
=1,MTSR TRANSMLT ENABLE " 
=1, HRSR RECIEVER ENABLE * 
=: MIOR: 6 ses. een a eure 
ACLEN(AO),AD IR PLONTER " 


(A123, ACCTIDIAU) STORE TID Kl 
=ACLTAID, DARAO) STUÜRE ADR DATA REG * 


ZACIAZS,RSRIAO) STORE RELIEVE REG 


=1,ACICC AU) SET ’ALL DONE? u 
ACTA3S, A2 ACIA ADR [ 
DO,(A2> MASTER- RESET ab 
=395,D1 ‚READY TO READ + 
DI1,(A2) READY TOD READ 1 


D1,ACTOFF(AO) SET OFF CONTROL BYTE 
=1B5, ACTONAO) SET DN CONTROL BYTEi 


.uurennnnenuun u 


MOVE.B =7u0, MUR SET VECTOR REGISTER # 
MOVE.B 0, MEAR USE FALLING EDGE " 
„> 
MOVE.B =30, MDDR USE AS INPUT ar 
MOVE.B =454, MIERA ENABLE INT. A ” 
mMOVE.B =PEL,MIERB ENABLE INT. B ” 
MOVE.B =454, MIMRA SET INT. MASK A * 
MOVE.B =4$E1, MIMRB SET INT. MASK B es 
#unnne DUMMY OUTPUT MER POlenuennenneenenuenu nun 
MOVE.B =0, MUDR DUMMY OUTPUT * 
TST.B MUDR DUMMY INPUT # 
#00... SEARCH THE CIT CLOCK .. .* 
MOVE.L =5OFFIC, DO st M 
MOVE.L =tOFFFC,Di * 
MOVE.L =!HOFFCO, D2 READ REGISTER " 
MUVE.L =$0000FFFF,D3 COUNTER a 


0063IC 283C0000FFEE MOVE.L =S0FFEE,D4 SELELT CLOCH a 
000342 LIFFOOFBOVDO LEA SFBOOOD, Al IST rem ACH. EVEN # 
000348 H1lA SERCL1 BSR.S SCLOCH SEARCH THE CLUCK x 
V0OD3HA 6768 BEQR.S READ 8: IF FOUND " 
V0034C DIFLOVHOODOL ADDA.L =1,A1 NEXT Rom ODD u 
000352 &110 BSR.S SCHOCK SEARCH THE CIOCK Rn 
000354 475E BEQ.S READ B: LF FOUND [N 
000356 DIC3 ADDA.L 03,A1 NEXT EVEN ROM & 
000358 B3FLOOFFÜOOO CMPA.L =3FFOUOC, AL TEST IF READY n 
ONO3SE &6E8 BNE.S SERCLI B: NEXT ROUND 4 
000360 KOU000DL BRA ISOUND EB: NO CLOCK FOUND “ 
000364 3E3LU0EN SCLOCI MOVE =z100,D7 LOOP COUNTER a 
000358 10314800 MOVE.B O(A1,04.1L93,06 SELECT THE CLOCK a 
O0O036C 1C314B00 MOVE.B 0 A1,0%.1.),D6 SELECT THE CLCCK # 
000370 1C.3148U0 MOVE.B ÖlAL,DU.LI,DG SELECT THE CLOCK " 
000374 1C310800 MOVE.3 OGLAI,CO.L),D& SELECT REGISTER a 
00U378 1L311800 MOVE.B WUA1,D1.L3,06 SELECT REGISTER a 
00037C 10312800 MOVE.B Ct AL,D2.L?,D6& READ REGISTER DJ 
VOGZAV 1C.I12800 MOVE.B WtA1,D2.L),06 READ REGISTER u 
000384 LAOS MOVE.B D6,D5 MAKNE A COPY n 
OUVI86 BROS SCLOI CMP.B D6,05 1EST IF STABLE “ 
000388 6624 BNE.S SCLU3 e: CLOCH FOUND a 
VOVO3BA LAUS MOVE.B D6,UDS mAl.E A COPY “4 
VO038C 10314800 MOVE.B NAL,DY.LI,DE SELECT THE CLORMK n 
000390 LLIJL4B0O PIOVE.B OtAl,Du.L),08 SELEÜT THE GLOCK a 
00039 1C314B00 MOVE.D @LAL,DU.LI,D&E SELECT fHE CLCCH R 
400398 1.210800 MUVE.B UL A1,DG.LI,LG SELEUT REGISTER “ 
00039C LC311800 MOVE.D GAL,OL-LI,DE GELELI REGLSIER “ 
VHOIAO 1C31268U0 MOVE. O(A2,DE.L),D& KERD RE TER “ 
WIOIAH 16312800 MOVE.B VLAL,D2.LI,D6 NREGD REGISTER u 
VVO3AB SACFFFDE DEF D7,5UL0% 1.U0P bi 
VONRDIAC 7EOL MOVEU =1,D7 RETURNG WLIH NE x 
VOUOIAE 4E7S RIS Ei 
000300 7EOD SCLO3 | MOVEN =0,D7 RETURNGS WETH EU Di 
000302 4E7S RTS [) 
000334 Reoasa READ THE CI CLOl. „uuunneen nenn nn nenn 
VOOIBH 487N0072 READ PEA READUH REIURN AG. ” 
000388 DIFLYDVOOFFYO ADDA.L =UFFüc, Al RTC 53321. BASIC-AOR. 
VOO3BE ZU49 MOVEN.L Al,A2 MERE A CUFY " 
O0O0ICH 264% MOVENA.L AL, MArE A COPY L 
GO03C2 2847 MUVEA.L Al,At HART 6 CUPY a 
VOOICH DSFCOOUNUVEO ADDA.L ru, Ad REAO INABLE " 
VUOOICA D7FLOOOOOOEU ADDA.L SIEH, A READ LAICH a 
000300 FFIFLOOOONLYO SUBA.L 4100, Au DESELELT LOL. k 
V003D6 4282 EÜLR.L DE 2 
O003D8 4283 CLR.L D2 CLEAR REGISTER A 
V003DA 7205 MOVEG =5,01 Slam) wilr ü u 
VO030C 7E03 . MOVER =3,D7 a 
0003DE sluE RERMDL BSR.S RERDZ Hirn | r 
OO03E0 16381041. MOVE.B READIHLCDL.W), 03 FALTEN Eu 
VVOSBEN LUC3 RULU 23,05 #10 UA u a 
VOVIEB DU&O ADD.L DVO,D2 LUMULATE a 
OUOBEB HAU1 TST > LE All. DONE El 
VDSSER 6CFr2 BEE.5 READI. B5 CENTINLE “ 
’ 4E7S \ 
Kananıs 

EE OIROL READ2 
O0OBR 0 E345 
OUOSF2 IT2IÖONEE TEE AL I,ds 
O0OVIF6 LLEZIOVEE MOVE.B WEELALY,DE = ® 


GUOBFA 1C2YOURE MOVE.B 'EE(AI 2,06 z » " 


OOO3FE 
VOOHO2 
VOOULD& 
0004 0A 
VOOLOE 
VNOHIE 
0900416 
VOOHLB 
0904 1A 
DOUS1C 
WOLLE 
GOOy 20 
vuoh22 
GUU42Z 
VOOH28 
SHUOH2E 
00042A 
SuohH2c 
VOOLZE 
UUH30 
VONW32 
UOOY IS 
saonat 


OL 
[517777 


VOU450 
ounubß 


VOOH 60 


LOUHER 
VOOR&C 
[BIP FO TFCT 3 
WOOH7Z 
SUOL?u 


VUCUH74 
VOOH/A 
VCHH7E 
GOOH82 
vvouB& 
WOLUBA 
VOO4BE 
GOL472 
VUWUYo 
OHGHFA 
[PIBER LTD 2 
TUOHYC 
LOOHE 
GHo 
BOONHAZ 
LYOHAB 
VUUHAL 
VOOHBO 
V9CHB4 
w 
UUouBR 


19323000 
10335000 
1029Y0Cv 
10290ICH 
182A001E 
1929C0EE 
1C14 
4600 
c087 
7EOF 
5341 
“EIS 


VAOGUAVSOAUL READI 


Kurenne 
RERDU 
READS 


702 
E3BA 
2E02 
ESBA 
Du87 
SICBFFF& 
S4UBBVBBE 
21U2088A 


Hoonun 


ZU7308348 ISOLUND 
B17CE70003A2 
ZIFCOUN7OOFF 
8300 
SYFLOGCLOOFF 
8802 
LIFLOOVEUUFF 
8800 
LYEBUSRAZULFF 
[-1:1vyol 
47/FAUDO8 
Yauo 
“UIHV0936 
YEIS 


IMPEX 
g== 


Kouaen 


AEBIHFYSOHYL 
VÜEBUGCD" 
097000D 
OLOHOHLA 
V11LEU092 
01200102 
VLIGULE 
GL1WuhcH 
GLSEH0SA 
VCOH 


Ben 


ouAD 
x 807 
1UGO7FE 
MBERWLEE 
ROr&ubuß 


INELLO 


JERVUUUE 


MOVE.B OtA2,D5),DO 


LEA IRLIN1,AY 


SELECT REG. »# 


MOVE.B O(A9,05 ),D0 ar 
MOVE.-B TCOtA1I,DO READ THE CLOCK x 
MOVE-B 3CO0A1),DO THE NIBBLE IS IN DO * 
MOVE.B L1ELA2),Du SAVE THE CLOCKTIME 
MUOVE.B TEELAL),DU A 
MOVE.B (Au ),D& DESELECT CLOCK * 
NOT.B Ü DATA IN DO * 
AND.L MASK # 
MOVEQ MASK NEXT READ A 
SuLeg ADR. REDUCTION # 
RTS * 
Selen weten serafererenie wen are 
DC.B 19,6,10,6, 10,1 FACIOR TABLE a 
Be a a a 
MOVEQ LOOF 3 TIMES * 
LSL.L *2 # 
MOVE.L 02,07 SAVE #2 n 
LSL.L =2,D2 x8 * 
ADD.L D7,D2 10*D2 Ar 
OBrF DU, READS LOCPING " 
SUB.L H88BE,D2 TIME BASE “ 
MOVE.L D2,:88A SET THE CLOCK " 
INIT SOUND CHIP „vrnnunnennn rennen nun ck 
MOVEA.L IDP&,AU IR POLNTER 4 
MOVE ZIE700U, STAPSGK AUDI SET SOUND STATUS 
MOVE =307,PSBA SELECT 1/0 ENABLE # 
MOVE =1CV, PSGD FORT M,B OUTPUT L 
MOVE.B =$0E, PSGA SELECT PORT A * 
MOVE.B STAPSGAUI,PSGO SEND THE MODE BYTE 
LEA IMFER, AS RETURN ADR * 
CLR Du SEND DATA 00 * 
BRA PPOUT DUPIMY OLITPUT u 
RTS EXIT OF INIT SEO. * 
ne Dee RER) BEER IEENEIUE ERIEREREEERTEEE. 
ENCERTION-LIN“ -TABLE THIS IMP onuunennu 
DE TAKD1, LOF9S, (142119037 # 
cc 158, IR668-4-2 HORIZ. BLANKING # 
DC 670, 1R&70-4-2 VERTI. BILANKING 
DE 4190, [ROLON- PARALLEL PORT r 
DE 41118, 1RAL18- MAUIAL/ADATA-IR 
DC 128, IRdö12B- 701 TRANSM DE # 
DC 130, IRSI3O- 701 RELIEVAF #* 
DC 114, IRSL14- CLOCK-IR W 
DC +18, 1R& LAS-- RING INDICATOR * 
[e/e2 [0] rm END OF EXCTEL u 
a ee Su ee x 
PORALLEL- PORT- INTERRUFT - ...* 
DE IAAZO1-IRöLOO MALFUND- ADR » 
MLVE L1D,-(A7 5 SAVE INTER.ID * 
MOVE =1IRPALV, TID NEW VECTOR ADR. # 
MOVEM.L DU/OL1/AD/AL/AZ/AB/AU,-CA7) SAVE * 
MOVEA.L 1DP&,AO BUFFER-POLNTER a 
TST PPCNFLAÖ} NSPECT CCUNTER * 
BEG.S 1R6I1AR 8:NDO JOB DISABLE . 
MOVZA.L PPERDIAUI,AL DATA-ADR 3% 


RETURN ADR 


GOOHBE 1017 MOvVE.@ (ALI«,DO GET THE 8YTE + 


VVOHLO KNUOH}EL BRA PPOUI TRANSMIT A,BYTE n 
VOOLLH ZIHFOSAA IR&1AL MOVE-L A1l,PPCAD(AO) STÜRE FOR NEXT READ * 
V00ULS S36B03AE SUBN =1,PPCNT(AÖ) COUNTER-REDUCTION * 
DOOLHLU 6ELE 8GT.5 IRE1A3 B:OIRECT EXIT » 
VVOHLE 225B0JAU MOVEA.L PPTID(AO),A1L FEICH TID * 
V00LD2 BIFLOOUOVOOO CMHPA.L =30, Al IS TID SET? * 
VO0HDS &70C BEG.S IRsı1A2 ö IF NOT * 
V0O4DA VBAFVOOLOG2U BCLR =BLKBSU,BLOCK(AL) RUNNABLE L 
VOQLEO 53780B0X SUBQ =1,DPC ALARM DISP. u 
OUOLEU 6008 BRA.S IRS1A3 AND EXIT * 
OO0OYE& OBEB0OVVOSAB 1R&1A2 BSET =0,PPSTAT(AO) THE PORT IS FREE x 
OOOHEL KU00NL52 IR&E1A3 BRA IR6ZO1 EXIT * 
OO0HFO a 
VOOLFO Ba RING! INDICATOR nase 
OOOHFO VOLA oc IRRMF-IRE138  MALFUNC-ADR. a 
OO0OUF2 3F3B07FE IR6138 MOVE IID,-(A7) SAVE IID * 
VUOLF& 31FCOL3807FE MOVE SIRRIIV,IID STORE NEW INTERR. * 
VOOUFC 4BE7UHIHO MOVEM.L D1/D6/D7/Al,-1A7) SAVE ® 
000500 223620000000 MOVE.L =320000000, D1 SET EVENT CODE " 
000505 2278080E MUVEA.L PIRTRI,AL SOFTWARE INTR. * 
GULOSOA HEDI MP (Al) AND EXIT * 
0V0SOC #uuuu. MALFUNKTION PROCESS -.unnunnennennnnnn nun ne 
VOO5UC 4HEDFOAC2 ÄRRMF MOVEM.L (A7 )+, D1/D6/07/A1l “ 
000510 31DFO7FE MOVE (A731, IID RELOAD IID * 
VOO5 14 6C000H32 BRA DISP EXIT * 
000518 Meum Tome  n 
000518 Harn. NIGHTITMARE:EALCIA 1/2/3 IR „...H 
000518 041A De IR6ZUVO-IR6L1B MALFUNC-ADR * 
O0051A SFIBUO7FE IR&118 MOVE 11D,-1A7) SAVE LI1D * 
VOUS LE 3IFCOLLBO7FE MOVE =IRACIV, IID NEW VELTÜR ADR. » 
000524 UBE7COF& mMOVem.L DO/DI/AU/AL/AZZ/AIZ/AU, AT) SAVE 
V00528 HIFAULOA IR&SLIX LEA IR&ZOO, Al QULCK. EXIT * 
00052C 20780846 MOVEA.L IDP&, Au BUFFER INDEX AC1AI 
000530 0829U00700FF 

FCUO BT5T =7,ACIALS INTERRUPT REQUEST ? * 
VH0O5I8 66000108 BNE IR&POQ B ıF YES # 
00053C HIEBOZEC LEA 2ZEACLEN(AO),AO GET MIDI QUFFER ” 
GO0S549 08390007 00FF 

FCOu BTST =7, ACIA3S INTERRUPT REQUEST ? # 
OO0S4B BA00QUFS UNE IREFOU 8 IF YES x 
O0OOS4C SOVOHIFZ BRA IRsZUL EXIT 2 
OOU550 * “ 
000550 Kaarst HESYNIE inaweın en are ee 
VO0S5U 00570500 IRö63 ORI =r0200, (A7) SET IR-LEVEL 3 # 
000554 KUCOW3FZ2 BRA OISP ® 
000558 a * 
000558 Kaisreisin VEBYNÖE: zarsceieiarrein eat earerere e aiateeieieimarere ne 
GUVSEB OBE& DC IR&ZO1-IR67C  MALFUNC-ADR * 
O0055A 3F3BU7FE IR670 MOVE II1D, -(A7; SAVE IIO » 
GO0SSE Y1FCOO7UY7FE PIOVE S=IRVSIV, TID STORE NEW INTERR. # 
OO0SAU LBETULFE MOVEM.L DO/DI/AO/AL/AZ/AI/AH,-(A7) SAVE * 
VOU568 4IFROBDL LEA IR&ZUL, AU QUICK EXIT # 
0005&C 26780846 MOVEA.ı IDP6,A3 BUFFER INDEX * 
OU0570 4AZBUSB2 TST.B IRMDDECAS) FLOPPY ACTIVE ? * 
000574 6722 BEQ.S IR6/A B: NOT ACTIVE ” 
V00576 5S3ABU3BT SUBG.L =1, TIMOUT(A3) DECREMENT TIMEOUT-L. 1 
00057A sAlc BPI..S IR67A B: SOME TIME LEFT # 
VOOS7LC 17 7C00FFO3BE MOVE.B =4FF,IRMODE(A3) SET FLAG TIMEDOUT 8 


VOOSE2 33FLUGBCGOMF 
BE0E MOVE =4C030, DMAUR SELECT FLÜPPY COMAND+ 


00058A 
00058C 
000590 


000598 
00059C 
0005AO 
0005A2 
OUOSAK 
VOOSAA 
OHOSAC 
000582 
000588 
00058A 
VO05C0 
0005C2 
0005C& 
000568 
VO0OSCE 
O00SDO 
000504 
VOOSD3 
O00SDE 
VOOSEO 
OOU5EO 
O00OSEL 
VOYSE& 
OVOSET 
OOOGEE 
VOOSF2 
OUOSF& 
O0O0SFC 
000602 
000605 
VOOBOA 
000610 
0009814 
V00616 
GOUSLA 
OVOS1E 
VV082U 
OUOB2U 
00C82A 
DOCS2C 
009830 
000534 
00083A 
VD663E 
VOG640 
00L6L2 
OU08L2 
VOOEH2 
0008646 
00084 A 
VOO&4E 
000652 
000856 
000858 
GU085C 
OU0685C 
LUUGEL 


7940 
SICOFFFE 
SIFTOODBOOFF 
8604 
2478083€ 
2038084 A 
6710 

EOBSß 
1ICOVUFF8203 
E088 
13C000FF8201 
082500020004 
6724 
082800070002 
&ö61E 
S36B000E 
6A18 
377C0016000E 
2002 
20780836 
YEA80004 
086800060902 
2400 


30280010 
673E 
GE2BHOUO00OL 
6614 
322BU012 
51090026 
VBEBOHOHOOOL 
377C001E0012 
92200014 
S1C90018B 
377C00030014 
2078084& 
1290 
60000856 
37410012 
6004 
37410014 
083801M60822 
6714 
UCEDFIFOI 
4BE743UO 
223C4 0000000 
2278080E 
+EDL 

4EDu 


26680004 
C8130000 
&70000FC 
HAZBO1DL 
&70V0OULY4 
Yauo 

&0000716 


o2D6& 


IR&7A 


IR671 


IR672 


IR&73 


IR67U 


IR675 
IR676 


IR677 
* 
BKuocune 


IR&POO 


Bun 


MOVEQ =$40,DO 
DBF D0,$ 


MOVE =500D8, DISK 
MOVEA.L IDP4,A3 
MOVE.L IDP7,DO 
BEQ.S IR671 
LSR.L =8,D0 
MOVE.B DO, $SFF8203 
LSR.L =8,D0 
MOVE.B DO, $FF8201 


8TST =CURB, STAT2(A3) CURSOR BLINK OK ? 


BEQ.S IR672 


COUNTER FOR WAIT 
WAIT 


*%* 


ABORT COMAND 
BUFFER INDEX 
SCREEN CHANGE ? 
B:NO CHANGE 
SET VIDEO CHIP 
LOW BuWSP 


HIGH BWSP 


Eu zz u u 2: 


B: IF NO BLINK 


8TST SACTION, STAT1I(A3) CHAR IN SERVICE ?# 


BNE.S IR672 
SUBQ =1,CURT(A3> 
BPL.S IR672 

MOVE =#16,CURT(A3) 
MOVE.L D2, DU 
MOVEA.L IOP2,AO 

JISR  CHAINVEAO) 


BCHG =CURSF,STATICA3) CURSOR ON/OFF 


MDVE.L DO,D2 


AUTOREPEAT „.urnnunnesunnnenneennneen nn une 


FIOVE CHAR(A3),DO 
BEQ.S IR67& 


BTST =AUTOY,STATZ(A3) AUTOREP FREE ? 


BNE.S IR673 
MOVE AUTODIA3),DI 
DEF Di, IR674 


BSET =AUTOY, STATZ(A3) AUTDREP FREE ! 
MOVE =REP, AUTOD(A3) SET COUNTER NEW 


MOVE  AUTOS(A3),DI 
DEF D1, TR675 


MOVE =RATE, AUTOS(N3) SET COUNTER NEW 


MOVEA.L IOP6, AO 
MOVE.B DO,DL 

SRA OUT 

MOVE D1,AUTOD(AB) 
BRA.S IR&7& 

MOVE D1,AUTOS(AB) 
BIST  =6, EVMASK 
BEQ.S IR677 


MOVEM.L 147 )+, DO/D1/AU/AL/A2/A3/AL RELDAD 
MOVEN.L D1/06/D07/Al,-{A7) SAVE 


MOVE.L =340000000, D1 
MOVEA.L PIRTRI,AL 
IMP (Al) 

MP Au) 


CALLER DETECTED. DISPATCH IN/OUT „nnneonn« 


MOVEA.L RSR(AO),A3 
BIST =0,(A3) 

BEQ IR&TOO 
TST.B ACEMULAO) 
BER IR6IOO 
ELR.W DO 

BRA KEYINA 


TRANSMLTTER-BUFFER EMPTY „nounorenennnuuen 


DC IR&ZOÖO-IRS12B 


8: YES # 
INT. COUNTER-1 * 
8: NOT READY TO BLIN# 
INT.COUNTER =$16 
SAVE D2 

GET JUMPTABEL 
CURSOR BLINK 


RELOAD D2 


READ FOR AUTOREP. 
8: NO AUTOREPEAT 


8: IF YES 
LOAD DELAY COUNTER 
B: NOT DELAY END 


REPEAT CODUNTER 
EXIT 


BUFFER-INDEX 

DUMMY MOVE 

DD AUTOREPEAT 

SAVE DELAY CDUNTER 


SAVE STEP COUNTER 
INT ENABLE ? 
B: NOT FREE 


SET EVENT CODE 
SOFTWARE INTR 
AND EXIT 
QUICK EXIT 


BKRREKEREE KEN SKEKSEH ERH Ss KE E u u u + 


GET ADR STATUS REG 
TEST IF READER CALL * 
B: GO OUTPUT SECTION» 
EMULATION ON ? 
8: NO 


GET ASCII-STRING DO 
B: IR&I02 


zurRHunx 


MALFUNLC-ADR 


"00065E 
000842 
000868 
000566 
000870 
000674 
000678 
00047C 
000#7C 
00087C 
00067E 
000682 
000688 
O00858C 
000690 
0008594 
000696 
000598 
00069C 
000689E 
O0006AL 
O008A& 
0006AA 
O006AE 
0006580 
0006B0 
000682 
000406 
000686 
0006BA 
O006BC 
V006BE 
0006C0 
0006L4 
0006C6 
0006CA 
O006CE 
0006D2 
0006D4u 
0006D4 
0006DA 
O006E0 
O006£2 
0006E2 
V006E&6 
O006EA 
O006EE 
0006F2 
O006F& 
0006F8 
O006F8B 
O006FA 
0006FC 
O006FC 
000702 
000704 
000704 
000706 
00070A 
00070C 
00070C 


SF3807FE 
S1FCO12807FE 
4BE7COFB 
YIFRO2CE 
2078084& 
4LE8O136& 
SOVO00CE 


02Bö 
3F3807FE 
S1FCOL3007FE 
HBE7TCOFB 
YIFAOZA& 
2078084u& 
41EBO13I6 


26580004 
TO7F 
082800030120 
6704 
SOSCFFFF 
08130003 
6796 


4240 
E00U0112 


26680000 
co013 
1200 
6736 
4A2BOL2O 
6808 
82300003 
&FOOOOFA 
923C0011 
dazu 


V8AAE00000120 
082800040120 
shlu 


3028010C 
8068010E 
66000066 
3028011E 
sE000088 
GEDL 


ssol 
6608 


BEBHOOOUL2O 
HEDU 


2yuc 
4HAZBO11A 
6708 


22680122 


IR&123 MOVE IID,-A7) SAVE IID * 
MOVE =1IRTEIV, IID STORE NEW LIDO # 
MOVEM.L DÖ/D1/AO/AL/AR/AZ/AH,-TA7) SAVE + 
LEA IR6Z00, Au QUICK EXIT # 
MOVEA.L IDP&,AO BUFFER-INDEX x 
LEA ALLENAO),AO GET USART BUFFER-T 
BRA IR&STOO GO CUTPUT-SECTION * 

= # 

®unn.. RELIEVER-BUFFER FÜLL „-nuer nun nn nennen 
DE IR&Z0O0O-IR&EL1IO MALFUNC-ADR # 

IR&L3O MOVE IID, -(A7) SAVE IID ® 
MOVE =IRRBIV, IID STORE NEW IID Di 
MOVEM.L DO/DL/AO/AL/AZ/AZ/AH,-(AT) SAVE u 
LEA IR6ZU0, Au QUICK EXIT * 
MOVEA.L IDP&,AO BUFFER - INDEX “ 


LEA ACLENAO),AO GET USART BUFFER-I * 
#eunue RELEIVER-CALL „anecuunenennernen nennen nn ne 
IR&IOO MUVEA.L RSR(AO),A3 GET ADR RECIEV STATU# 


MOVER =%7F,DO MASK, NO PARITY [2 
BTST =3, ACSTR(AO) BINARY MODE ? " 
BEQ.S IRSIIG B: NO BIN-MODE # 
MOVE SSFEFFF,DO NO MASK ON DATA a 
IR6ILO BTST =3,(A3) TEST BREAK * 
DBEQ.S IR&IO1 B:ND BREAK * 
Rennen BREAK-TEST „onen onnreneennunrenne nennen et 
CLR Do FOR ?BREAK? A 
BRA IR&UOO UPDATE Cd # 
Buena REAL DATA-READ „onen nereennnnne nn nennen 
IR6SIO1 MOVERA.L DARCAO),A3 GET ADR DATA * 
AND.B (A3),Du DATA 
IR&IO2 MOVE.B DO,Di MOVE DATA * 
BEQ.S IRS1lOU 16NDRE ?NUL? % 
TST.B ACSTR(AD) NEO IF "NO COMMANDBS’ + 
BMI.S IR6103 B: COMMANDS INHIBITEDFr 
CHP.B =3,D1 TEST 1,2,3 " 
BLE TRALOO BZ UPDATE CMMD * 
IR6öIO3 SUB.B =T11,D1 TEST ON "’X-ON’ * 
BNE.S IRSIUS 8:15 NOT ?’X-DN? ar 
#0... PROCESS ’X-ON’-COMMAND »unurenreenrnnnn en 
BCLR "0, ACSTR{ AO) FLAG XMITTER CLEAR 
BTST Zu, ACSTR(AO) CLEAR IF IR PENDING * 
BNE.S IR6IOH 8:TX ALTIVE, EXIT ar 
R%oron.AWAKE SLEEPING TX IF NESESSARY..-nuuenunau 
MOVE ACTRı AO ),DO KMITTER READ PTR # 
CMP ACTWAOI,DO ANY CHAR TD WRITE ? * 
BNE IR&ETOL B: YES MAKE DUTPUT * 
MOVE ACTCLAO),DO TRANSMITTER COUNTER # 
BGT 1R6T03 8:OUTPUT FROM CE # 
IRSIO4 IMP (Au) EXIT = 
Rerana TEST FOR K-OFF „..--ununnunnennnn une n urn nn t 
IRSIOS SUBQ.B =313-$11,D1 TEST ON #13 X-OFF R 
BNE.S IR&6IOS B:NOT X-OFF/HX-ON * 
#enana PROCESS K-OFF „un -nunuunsnnenen nn nn 
BSET =0, ALSTRLAD) FLAG XMITTER-STOP E73 
IMr (Au) INTERRUPT-EXIT + 
#.onr. PROCESS NORMAL INPUT-CHARACTER u 
IR&IO& MOVEA.L Au,A2 RETURN = IR-RETURN # 
TST.B ACISIAO) INPUT-SWITCH * 
BEQ.S IR6IO? B:PUT INTO CYC-BUF a 
%enenn INPUT INTO CE „oounuernsenn euer nn nn a 


a 


MOVEA.L ACRALAO),AL LORD Al 


090710 
000714 
000714 
000718 
90971C 
O0071E 
000722 
C0072& 
000728 
90072. 
000672C 
000730 
000732 
000738 
00073A 
090740 
000742 
V0074& 
000748 
000748 
000748 
O0O074C 
VUG7SC 
000752 
000752 
000758 
00075C 
000760 
000764 
000788 
00076A 
00076£ 
000772 
000774 
000774 
000778 
00077A 
60077C 
00077C 
000782 
000784 
000788 
0007BE 
000792 
000794 
000798 
00079C 
0007 FE 
0007R2 
0007AB 
0007AC 
000780 
0007B& 
00078A 
0007BC 
0007C0 
0007C4 
0007C6& 
0007C& 
0007C& 
0007CA 


&0000170 


3228010A 
11801008 
5241 

C27C0V7F 
02680108 
8704 

31u2010A 


4A280221 
514 

0328000 L0120 
&70C 
GBEBOVVZOLZO 
7013 
SUGCOOOCE 
HEDU 


20280610C 
BOSAU1G6E 
6722 


GBESOUOHOLRO 
26680000 
DOFCOOB8 
16900000 
FOFLOOBEB 
5240 
C07C007F 
3140010C 
4EDU 


IO28011E 
6724 
834 


082800000120 
662C 
24680132 
OBE80004u0120 
26680000 
169A 
214A0132 
S36B011E 
4EDU 
24680114 
OBAAODOLOD2Y 
53780800 
S368011E 
OBABOOOLHOL2O 
UA2BO11I , 
6708 
26680004 
16A80117 
YEDU 


2268012A 
134 U09IF 


Auuans 


1R6107 


IR&108 


IR&I0O® 


Hunene 


IRSTOL 


Hauer 


IR&TO2 


Runune 


IR6TOS 


IR6TOU 


IR6TOS 


IR6TO& 


1,727 IR&YOO STORE DO IN CE+IEXTT= 


PUT DATA INTO CYCLIC INPUT-BUFFER “ 
MOVE ACRWAO),DL  WRITE-POINTER # 
MOVE.8 DO, ACRB(AO,DI.W) STORE INFORM. ” 
ADDG =1,Di MOVE POINTER ” 
AND  SACRBM, DI READ-BUFFER-MASK  * 
CHP  ACRRUAON,DI IF READER REACHED * 
BEQ.S IR6IOB 8:DO NOT STORE * 
MOVE DI,ACRWAO) NEW WRITE-POINTER * 
STOP OUTSIDE XMITTER IF ON "8? -DEVICE * 
TST.B ACEMUCAO) IF EMUL. TERMINAL? * 
BNE.S IR6I07 B:VES, NO ACTION * 
BIST =1,ACSTR(AU) 15 SET IF LAST URS B* 
BEQ.S IR&LOF B: ND ACTION 

BSET =2,ACSTR(AO) MARK FOR NEXT READER" 
MOvEn =$13,00 CHAR TO SEND * 
BRA  IR&XOO xMIT BY FIRST SERV. # 
mp (Au) IR-EXIT * 
ee Me 
TRANSMITTER-CALL „= nennunenennennnnen nun 


MOVE ACTRLAO),DO TRANSMITTER READ PTR+ 
CHP ACTW AO Y,DO TEST EMPTY BUFFER * 
BEQ.S 1R6T02 B:BUFFER EMPTY % 
FIRST SERVICE FROM CYCLIC BUFFER »..0.... 
BSET =4, ACSTR(AU) FLAG XMITTER ACTIVE 


MOVEA.L DAR(AOI,A3 GET ADR DATA * 
ADDA zACTE, AO CYC.-BUFFER PTR “ 
MOVE.B 01 AQ,DO.W), (AB) WRITE ® 
suaA SACTB, AC OLD PTR * 
ADDG =1,D0 MOVE READER UP ” 
AND »ACTEr, DO ACIA TRANSM.BUF MASK« 
MOVE DO, ACTR( AO) STORE NEU VALUE 


IMP Au) IR-EXIT 

SERVICE ON COMMANICATION-ELEMENT «or.» 
MOVE ACTC(ADI,DO TRANSMITTER-COUNT 
BEQ.S IRSTOL B: ELEMENT READY 
BMI.S IR6TOS ALLREADY ALL DONE 
REAL SERVICE ON COMMUNICATION ELEMENT 
BTST =0, ACSTR(AU) TEST IF XMITTER ’ON’ 
BNE.S IRATOS B: XMITTER-STOP 
MOVEA.L ACTCADIAO),A2 TRANSMITTER ADR 
BSET =4, ACSTR(AO) FLAG XMITTER ACTIVE 
MOVEA.L DAR(AO),A3 GET ADR DATA 

MOVE.B (A2)+,(A3) VRITE 

MOVE.L A2,ACTLADLAO) MOVED POINTER 

SUBQ =1,ACTCLAO) TRANSM COUNTER 

IMP tAau) IR-EXIT 

MOVEA.L ACTTIDEAO),AZ2 ACIA TRANSM. TID 
BELR =BLKBSU, BLOCK(A2) CONTINUE 

suBa =1,DPC ALERT DISPATCHER 
SUBQ =1,ACTCLAO) FLAG 'NO TASK’ 

BCLR =4, ACSTR(AO) ACIA FREE 

TST.8 ACTOFF(AO) TEST IF IR OFF NEEO 
BEQ.S IRSTO& 8:NO ACTION 

MDVEA.L RSR(AU),A3 GET STATUS ADR 
MOVE.B ACTOFF(AO), (A3}) TX-IR OFF 

mr Au) INTERIT. 
IR&-SUBROUTINE: UPDATE STATE or CMMD „.... 
MOVEA.L ACCTID(AO), AL FETCH CMMD-TID 
MOVE.B 0, BRKADR+L(A1 ) SIDRE TYPE OF CALL 


BEZ KERN KK u = > 


OOÖ7CE 
000702 
0007D4 
000704 
0007D8 
0007DA 
6007DE 
V0007E2 
VOO7EH 
0007E8 
DOVJFEL 
VOOOTEE 
0007F2 
O00O7F4 
0007F8 
0607FA 
VO0O7FE 
000800 
000906 
O0080C 
000810 
0900812 
000812 
000812 
000816 
000818 
V0081C 
VO081E 
ONOB2Uu 
000826 
000826 
O0082A 
00082C 
600832 
000834 
000838 
00083C 
VO0BUO 
0008UuM 
O0H8Uu 6 
0H08HA 
DO08LE 
000850 
000854 
000858 
O0085A 
00085C 
000850 
000866 
000A6A 
0008&C 
VOOB6E 
090872 
000874 
000876 
00087A 
00087E 
000880 
000882 
000882 
000882 


HAAPDOLE 
6620 


94780830 
2uC9 
2278082A 
BLFEOB68 
sDou 
34780864 
BUFBOS2E 
6718 
J1CAO0830 
6012 
UNZFOOAF 
&u0C 
HAAFON2& 
6706 
VOBEFVUV7OOLY 
022900UF0024 
53780800 
HEDU 


vazau1l21 
s61C 
uN280118 
6616 
OB2300040120 
S60E 


26680000 
1680 
VOBEBUOONHOLZO 
“ED2 
I22801NE 
DOFLCOVBB 
11801000 
FOFCOOBE 
say! 
C27COO7F 
B269010C 
6704 
31hHLOL0E 
HAZBOLZL 
6714 
Ca8A 
ZU&880110 
OBAAUOOLOOEL 
53780809 
C38A 
4ED2 
WAZBOLLB 
670C 
220A 
24680004 
14A80118 
zuu1 
4ED2 


TST.L FORS(AL) IN IN DSP-CHAIN " 
BNE.S IR6U02 B: IS LINKED * 
#uuun. ACTLVATE DORM CHMD BY CYCBUr A QERROR ... + 
MOVEA EBUP, AZ WRITE-POINTER a 
MOVE.L Al,(A2)r STORE TID „ 
MOVEA.L TIDGER, Al TID OF UERROR # 
CmPA  EBU12+2,A2 MAX- FEST ii 
BLT.S IREUO1 B:NOT REACHED * 
MOVEA EBUCOM+2,A2 RESET POINTER a 
IRSUOI1 CMPA EBRP,A2 IF READER REACHED u 
BEQ.S IREUN3 8:DO NOT TÜLCH PIR u 
MOVE A2Z,EBUP NEW WRITER " 
BRA.S IREUO3 60, START QERROR # 
IR&LIO2 TST.B BRKADUR+LKAL) INSPECT TYPE UF Calle 
BNE.S TRELO2 B:NOT RESTART " 
TST.L WTOLAL) IF THERE IS WSP a 
BEU.S IR6LOS B:NO RESTART ” 
BSET =7,NESFLECAL) SET RESTART-FLAG n 
IREWN3 ANDL.B =SFF-BLIMSU-BLEMAC, BLOCKCAL? M 
SUB 1,DPC EALL DISPATCHER n 
mp (Au) EXIT N 
ee ee 
#uuna. IR&-SUBROUTINE: PUT DU INTND AMR-CYCBUF N 
TR&XUO TST.B ACEMUAO) EMULATLON ON ? 2 
ANE.S IREXOL BzEMUL ON " 
TS1.8 .ACTONEAO) TEST IF Acla TVPE u 
BNE.S IR BEIN CASE UF ACTA 
BTST  zU,AUSIREAO) TEST IF READY TC WR 
BNE.S IR@NUL Bz NOT REAY r 
Henna „ACIAAMITTER IS READY IO SENDennunnunenen eh 
MOVEA.L DAR(AU),A3 BET DAIA REG-ADR " 
MOVE.B DU,(A3) WRITE “ 
BSET ZU,ACSTRIAU) FLAG NOT READY’ ” 
Irıp (a2) RETURN FROM IRBKON u 
IREXOL MOVE ACTWEAG),DI WALFE-POLNTER h 
ADDA zAUTE, AU CYC. -BUFFER PTR u 
MOVE.B DO, Ct AO,D1.W) STURE THE BYTE “ 
SUBA  =ACTB, AO OLD PTR iD 
ADDQ =1,01 MOVE POINTER " 
AND  =ACTEM,DL MASK FF " 
chP ACTR(AO,DL IF READER REACHED  * 
BEQ.S IREXU2 8:DD nOT STORE u 
MOVE  DI,ACTWCAO) NEW WRITER.-PTR n 
IREXO2 TST.B ACEMLUKAO) iF EMUL. TERFIINAL 0 
BEN.S IREXOL B: REAL TERMINAL n 
EXG M2,D1 SAVE RETURN a 
MOVEA.L ACRTIDIAO),A2 RELE.LVER-TASIK-ID ” 
BCLR =ALKBSU, BLOCKIAZ) RUNNABLE n 
suBQ =1,DPC DISP. CALL 5 
EIG  A2,D1 RELOAD AZ “ 
IREXO3 ImP CH START DLISPATCHER " 
IR6XOL TST.B ACTONAO) TEST IF AClA TYPE # 
BEN.S IRSXOS B:NO ACTION NEEDED " 
MOVE.L A2,D1 SAVE A2 “ 
MOVEA.L RSR(AO), AB GET COUPLER ADR n 
MOVE.B ACTONTAO),CAZI TX IR CN a 
MOVEA.L D1,A2 RELOAD A2 * 


IR6EX05 ImP 
Li 


(n2) 


TR&-SUBROUTINE? 
= CARE: 


Husnse 


PLIT DO INTO INPUT 
Au IS DESTROYED! 


EXIT n 


vuU882 
GU0388 
LOOBSA 
COOSBA 
VOOBSC 
G00g70 
SUOHFZ 
VOUBIE 
UUU898 
000898 
GUL89T 
OOGSIE 
GLO8BA2 
UNOBAL 
VOUS 
UDOYAS 
GUOBAA 
VOHOSAE 
VOULEZ 
VDOESUu 
VOGEBBB 
OVOUSBC 
OCUBBE 
VOVBCO 
BOVOSC4H 
VOO8C6 
VV0AC8 
ONHOSCL 
VOVBCL 
VOOBDO 
V008Du 
O0U8D& 
VUUBDA 
UO0BDL 
VOOHBEO 
ODUBEN 
LUUVBER 
OOOBERA 
VOOBET 
OVOBFN 
VUU9F2 
OOOBFH 
UOVHRFE& 
VGOBFE 
OUOBFA 
OHIO 
VOUOYO2 
OHOON,Z2 
VUVIOE 
OOONA 
OO0O9OE 
000910 
GUHF12 
DDO714 
000716 
OVOFI1A 
VOH91C 
OU071C 
000920 
[else 7-1 
V00928 


V82I7U0U10028 
BöuL 


z84A 
BU3CUV7F 
67068 
YBUEuous 
6634 


Z4sßlJ12E 
538A 
BSEIOU2O 
scyz 
YEDL 


Z1HAQ12E 
53690024 
5268U11C 
70,8 
45FADUOOS&S 
SIOOFFSB 
7020 
SO8A 
SODOFFSO 
7008 
ZUSC 
S0OVOFF4B 


WEFRUVOS 
SUVOFFHO 
Zuuc 
286B012E 
18CU 
214CO12E 
SREIUOZU 
SI6EBV11C 
urI2 
7220 
FTCITLOOOD 
sEHO 
H/R2 
7210 
Huu0 
6616 
9829009035 2B 
6714 


S26B8V11C 
53690024 
SIABOL2E 
4EDZ 
7208 
BLuU 
sAalc 
12270028 
6716 


V268U11C 
4228011A 
28686116 
VBALUOOUNOZH 


IRSYULU 


Hanne 


IR&YOL1 


Koucon 


IRoYO2 


1REYH3 


Hosen. 


IRSYaou 


IR&YOS 
INEYO& 


House 


1R6YO7 


IRUYOB 


Kuruen 


IREYO? 


Bil =MODBB1, MÜDE(AL ) TEST NO ECHO-MODE ® 
BNE.S I[RSYOS BYPASS ALL ECHO .. 8 
TEST ON DELETE-CHAR # 
MOVEA.L A2,AUu SAVE RETURN ADR # 
cmP.B =37F,D6 TEST ON DELETE * 
BER.S IRSYOL B:IS A DELETE ”* 
cmP.B =308,DO TEST ON DELETE # 
BNE.S IR6YOL B: NORMAL ECHO # 
REPOS BUFFER-POINTER GR ND ACTION „un....% 
MOVEA.L ACRCAD(AO),A2 READER ADR IN CE “ 


SUBQ.L =1,A2 
CMPA.L BUADR{ALI,AZ 
BGE.S IRsY02 

IMP (Au) 


REPGSITION BY ONE BYTE 


MOVE.L A2, ACRCAD(AO} 
SUBO =1,RECLENAL) 
“DDQ zZ1,ACRCE AU) 
MOVEQ =$U8, Du 
LEA IR&YO2,A2 
BRA IRSXUO 
MHUVEN =120,D0 
ADDU.L =8,r2 
BRA.L IREXOO 
MOVEN =308, DO 
MOVEA.L AU, A2 
BRA IR&NOU 
ECHO NORMAL CHARACTER 
LEA IR6YUS, AZ 
ORA IREAUND 

WEA.L Au, AZ 
MOVER.L AURCAD(AO I, Al 


MOVE-B 00, (Au )+ 
MOVE.L Ab, ACRCADEAY? 
ADD =1,RECLEN(AL? 
SUBQ  =1,ACRCLAO) 
BLE.S 1R&Y0F 

MOVER =MODMER, DI. 
SUB.B =10D, DO 

BGT.S IR&SYUA 

BEQ.S IR&YUB 

MOVEQ =MODMLF,DI 
ADDUW.B =40D-$UR, DU 
BNE.S IREYO7 

8151 =0, DRIVE+1(A1) 
BEQ.S IRöYOS 
LINE-FEED AND ’UL? IN 
ADDR =1,ACRLIAN) 
SUBSA =1,RECLEN(AI) 
SUBQ.L =1,ACRCAD(AO) 
ImP a2) 

MOVER =MODMEO, DI 
ADDU.E =TOA-404,DO 
BNE.S IR6YORA 

AND.B MODE(AL),DL 
BEQ.S IRöYOA 

STOP READING: CE FULL 
ELR AERCCAOI 


CLR.B ACIS(AO) 
MOVEA.L ACRTIDEAOI, Au 
BELR 


=BLKBSU, BLOCK AU ) 


RESET. 

TEST UNDERFLOW 
BZ NO UNDERFLOW 
RETURN - ND ACTION 
STORE POINTER 
REDUCE BY UNE 
BYTES TD READ 
CURS. LEFT 

RE TURN-ADR 

XMIT DO (DO=8C8) 
ONE BLANK 

NEW RET ADR 

MIT THE CHAR 


2 


EXIT = RETURN 

WRITE THE EHAR+EHIT 
RETURN-ADR 

XMIT DW 

RELOAD RETURN 
READER-ADR IN CE 
STORE CHARACTER 
NEW DYTE-ADR 
INCREMENT 
READER-COUNTER 
BZWAS LAST CHARACTER 
ER -MASK n 


1EST ON CR # 
B:ND SPELIAL CHAR # 
B:YES ISACR 1 
MASK LINE-FEED #H 
TEST DN-LF 1 
B: YES IS NOT LF * 

TEST ’UL?-OPTION Aa 


B:NO SPECIAL ACTION # 
NOT PURE RECLEN-MODE# 
READJUST READER-ENT * 

’ 4b 
BUFFER-POINTER * 
IGNORE LF TOTALLY * 
MASK FÜR EOT ” 
TEST ON EnT # 
BZNDT CR,LF,EOT 1 
TEST IF MATCHING A 
BENO MATCH * 
OR CR/LF/EOT BY MODE 
CLEAR READER-COUNT * 
INPUT-SWITCH * 
TID OF TRANSMITTER * 
CONT INUE * 


D0092E 
000932 
000934 
000934 
000934 


00093C 
00949 
0900944 
V009H8 
000948 
00094C 
000950 
000952 
000954 
000958 
000958 
000958 
00095A 
00095E 
000940 


000968 
000966 
000970 
000972 
000974 
000978 
00097E 
000982 
000982 
000986 
00098A 
00098E 
00098E 
00098E 
00098E 
00098E 
000990 
000992 
000996 
00097A 
0009AO 
0009A2 
0009A2 
0009A2 
0009A4 
0009A83 
O009AC 
0009AE 
000982 
00097B& 
00098A 
0009C0 
0009C2 
000906 
0009C8 
0009C8 
0009C8 
D00FCA 
O009CE 


53780800 
4ED2 


OB3IFOVOHOOFF | 
FAOL 
&700FBERA 
SCDFAFO3 
31DFO7FE 


007C0700 
4A780800 
6802 
4E73 
4EF80906 


0028 
53B809UuL 
SEOC 
21FC000000&0 
OAUC 
52D8088A 
58B8088A 
6AO2 

uE73 
SF3807FE 
S1FCO1L1HO7FE 
4EFBOIOO 


4CDFOZER 
S1DFÖO7FE 
S000FFBC 


YEuS 

7200 
4BFAFFFA 
20780846 
117C00010121 
60uA 


HEUF 
20780846 
4HLEBOLI6 
7202 
uBFAFFF2 
42280121 
2278084E 
0829000920005 
672A 
52280121 
6024 


YEYF 
20780846 
HIEBOZEC 


suBQ =1,D0PC CAl.L BISPATCHER * 
IRSYuA IMP tA2) RETURN # 


Kerns anlegen 


MALFUNCTION-ENTRY + INTERRUPT-EXIT 


Usern .ununsH 


IR&ZOO BTST =4, MGPIP MORE IR ? " 
BEG IR&11X B: YES ”* 
IRöZÖl MOVEM.L (A? )+, DO/DL/AOGFAL/AZ/AI/AH RELUOAD # 
PIOVE (A793, 1LID RELOAD IID 2 
Bere. DISPATCHER-EXIT THIS SLICE „.-.-unernnnnn nt 
DISP ORI =%700, SR STOP ALL 1R * 
TST DPC IF A CALL # 
emI.S DISP2 B: YES K 
RTE a 
DISP2 MP DISEX+JUMTEL START DEF INITELY 4 
= - ” 
#eaoan LLOCK-SECTION „nonsnunensunnunen neun ennen e 
DC IRöÖMF-IR6öL1IY MALFUNCT ION-ADR R 
IR&114 SUBQ.L =1, TIMEC TIME CORRECTION * 
BGT.S IRS1LA B: NO CORRECTICN Lu 
MOVE.L =76, TIMEC FOR NEXT ROUND a 
ADDQ.L =1, TIME CORRECTION # 
IRSö1LA ADDQ.L =CLTF, TIME FIME INCREMENT » 
BPL.5S IRS11B B: MARKED TIME " 
RTE " 
IR&11B MOVE IlD,-(n7) SAVE 1ID * 
FIDVE =IRCLIV, IID LOAD NEW IIO * 
IM DL-KIRHJUMTOL PROCESS MARKED TIME * 
Aruncn PRESCRIBED MALFUNCTION PROLESS „urn uet 


IRSMF MOVEM.L (A712, D1/05-D7 751 FRUM NURLEUS u 
MOVE (A7 dr, IID RELOAD IID ” 
BRA DISP ENXAT ar 
* * 
SU RRRRSF EAN DEREÄRTE Hot REEL TG TROETRSF EICH RM: 
”* u 
Honaon "MACIAI?-DRIVER-TASI „uunnen nennen nun 
QRELCE FOR REFURN- JUMP a 
QACIA1 MOVEQ .=0,D1 OUN LDN [3 
LEA QACIA1-2,45 RETURN -ADR n 
MUVEA.L 1DP&, RO BUFFER- INDEX ® 
MOVE.B =1, ACEMUCAUD) SET EMULATION DN a 
BRA.S QACLIAX TO ACIA-COMMON u 


’ »RS232? -DRIVER--TASK, ie 
QRELCE " 


Kuunes unsern unnn nen 


GACIA2 MOVEA.L IDP6&, AU BUFFER- INDEX " 
LEA ACLENEAO),AO USART BUFFER-INDEX * 
MOVEQ =2,D1 OWN LON # 
LEA QacIA2-2, AS RETURN-ADR * 
CLR.B ACEMUCAO) NOT EMUL. ’ 
MOVEA.L SIODDT,A1 I/D-DEV TABLE = 
Bist =2,5tAl) TEST EMUL-BIT LDN 2 
BEQ.S GQACIAX B:REAL TERMLNAL it 


ADDQ.E =1, ACEMULAO) 


BRA.S WACIAX 


FLAG EMUL. TERMINAL 
TD ACIA-CONMON 


Mn nn a a 


QRELCE 
QACIA3 MOVEA.L I[DP6, Au 


LEA ZUIACLENAO), AU 


’ sMIDI3’ -DRIVER-TASı, 


k 
£) 
.unnunnnennenernn nen 
FÜR RETURN- JUMP ‘ 
BUFFER-INDEX 2 
USART BUFFER-INDER #* 


GRO9D2 
GaUuYDu 
VAUDE 
VUU9DC 
UUNFEL: 
VOHFES 
OONYJEB 
SOHFEC 
VOOFEC 
OUOHY9EC 
VOOFF“ 
OO0O9Fy 
VO0O09F6 
GOH9FB 
VOOFFC 
QUORuZ 
SOOADB 
VUULAOA 
OOOALO 
UVVAL& 
ODOUA18 
UOORLE 
OHDA2Lh 
VOUOAZB 
V00A28 
SBUDAAT 
GLLAZO 
VOYAIO 
VO0A3B 
VLOOAICT 
SODA3E 
SOSAHO 
ONOALHZ2 
WOGAL& 
099Au A 
VHORASO 
GOOAS2 
611721723 
VODASB 
WOORASC 
VOHASD 
GunıAdu 
ODOASA 
VOUA&C 
OHOAAC 
CO0OA?D 
GODAI2 
OGvA/Uu 
VO0A7B 
VUYATC 
VODABG 
UOOAB2 
VOOABS 
VUOAB& 
GUOAdA 
UWUYOAYFO 
DUYAPL 
VOOAF8 
OODAFL 
VODAAO 
OOOAAZ 


7204 
UBFAFFF2 
12232121 
2273084E 
VBEINUV2CONDS 
8704 
Ss2280121 


20720902 
236E0026 
4EUuD 

HELL 
WFECOUFZ 
022800770120 
032900000028 
«706 
VBEBHVOIGLZU 
08270002u028 
67064 
OBEBODOOU7OL2U 
VE2ZIVHLNHO02E 
HECOULBA 


Z1HEULIO 
214190122 
216MWO2001L2E 
7EU& 

SU 224 
62 

LEDS 

HEUT 
I62EN108 
2878083E 
VBALCHNVIONNZ 
706 
2B6E0026 
sue@E 
286E0026 
CE29002B 
A7U00088 
V829V0020020 
671A 


IUZBOLOA 
Juhu 
sEUB 
&7000128 
DU7COHaNn 
BU&FOUZU 
ur 
Ssu2y90u2u 


F14U20O1iC 
VAEBOOILOLZO 
YV2S9H24 
007C2700 
SUZ802093 
BUSBULDA 
675A 
1OIOZUJB 


OACTAK 


GACIKO 


BACKKO 


gACHKA 


Kanone 


QACI1l 


Huuuee 


GRLIX2 


MOVER =6,Di OUN LDN E) 
LEA  BACIAI-2,AS RETURN-ADR- " 
CLR.B ACEMIICAO) NOT EMUL. = 
HOVERA.L SIODDT,A1 1/0-DEV TABLE a 
BIST =2,5(A1) TEST EMUL-BIT LDN 2 * 
BEQ.S GACIAX B:REAL TERMINAL a 
ADDQ.B =1,ACEMLCAD) FLAG EMUL. TERMINAL * 

ee ne ee Bee huge 
REENTRANT SUBRUUTINE FOR QACIA 1/2/3 .....# 
MOVEA.L TID,R& LOAD OWN TID 
MOVEA.L WTOCA@), Al LORD PTN TO TWSP # 
ATOR LOAD Ar FROM CE “ 
ATERML IF EMPTY ” 
LEA OPNAME+140.T,A? LOAD STACK PTR * 
ANDL.B =177, ACSTR(AO) ENABLE COMMANDS ” 
BTST  ZMODBPT,MODE(A1) BINARY MODE ” 
BEQ.S QACKKU B: NO BINARY MODE ® 
BSET 23, ACSTRLAU) SET TO BIN-MODE * 
BIST ZMODBSC, MODE(AI) COMMANDS SUPRESS? * 
BEQ.S QACIKL B: COM. ENABLED # 
BSET =7,ACSTRIAO) KACSTR) NO COMMANDS # 
BTST  =MODROU, MODEIAI) IN OR QUT? 

BNIE Qacıxo B:60 OUTPUT-SECTION * 
INPUT-SECTION ON GROUND-LEVEL nenunnenue ne 
MOVE.L A6, ACRTIDLAO) RECEIVER-TID n 
MOVE.L A1,ACRALLAU) RECEIVER-AL a 
MOVE.L BUADRIAI ), ACKCAD( AD) START-ADR ” 
MUOVEQ =&,D7 MASK B OR C a 
MOVE RECLEN(A1),D2 ACCESS ” 
BNE.S hal B:NOT EMPTY CE " 
mp (as) EXIT, ND ACTION r 
IROFF STOP IR n 
MOVE  ACRREAUI,D3 READ-POLNTER " 
MOVER.L TUPU, dat BUFFER-PTR " 
BCLR  =KEYF,SIATICAU) FUNK. -VEY PRESSED? ” 
BEQ.S GACIL1 B: ND NORPIAL a 
MOVEA.ı. WTOLAS), AU RESFURE OLD PTR * 
BRA.S WALL 1: 78° -PORT ’ 
MOVEA.L WTOLAS I, AU RESTORE OLD PTR m 
AND.B DRUIVE+1(A1 2,07 TEST NOR B OR C Mi 
BER  uacıxo E:G0 DIRECT READ r 
BTST =2,DRlVEILCAL) TEST ON ’CY-OPTION ar 
BEQ.S QACIK3 8:15 ’8’-OPTION * 
?C?-TYPE FORT-KFER nnennnnanennuennnnnen nat 
MOVE  ACRU AN ),D2 WRITE--POINTER EI 
SUB D3, 02 COMPUTE LENBTH OF 
BST.S QAcıK2 B:LENBTH IN D2 * 
BEQ DACIKN B: TRANSHIT A NUL x 
ADD SACRBNM+L,D2 PRELISE LENGTH ” 
CHP RECLEN(A1),D2 COMPARE 10 CE “ 
BLE.S Uacıx3 B: TAKE WHAT IS " 


Kouuns 


QALIxXE 


DACTIH 


MOVE RECLEN(A1),D2 LOAD RECLEN AGAIN ie 
"Br AND "C? OPTION PROCESSING „.vuesuununch 
MÜVE D2, ACRCEAO) INITIALIZE READ--COUNK 


BSET =1, ACSTRIAO) FLAG B-OPTION ” 
CLR RECLEN{AL) NO EYTiE KFERRRED x 
ORT =32700, SR ALL IR "OFF? * 
MOVE ACRR( AO), DZ READER Di 
cmr ACRUAO),DZ TEST EMPTY * 
BEQ.S WACHiA B:WAIT FOR DATA u 


MOVE.B ACRB(AO,D2.W),DO GET THE CHARACTER 


V00ARS SZu2 ADDQ zı,D2 MOVE-UP at 


V00AAB LU7CLOO7F AND =ACRBM, D2 HODULO-OP * 
OO0AAC 31420108 MOVE D2, ACRR{ AO) STORE NEW POINTER . 
O00ABO 45FAO000& LEA GACHIS,A2 RETURN-ADR = 
O00AB4 K000FDEE BRA IR&YOO STORE DONE BYTE ar 
000AB& LHAFC2300 QACIXS MOVE =32300, SR ENABLE INTERRUPTS # 
VOOABC HASBOLIC TST ACRCLAO) IF ALL DONE? Mr 
O00ACD #ED2 BGT.5S QACHDU LOOPING Mr 
o00OALZ2 H.n.r. CE WAS SATISFIED FROM BUFFER ernennen 
O00AC2 00702700 DORI =52700, 5R ALL IR 'OFF’ * 
O00AC&h 34280108 MOVE ACRRLAOI,D2 READER % 
VOODACA BU68010A cMmP ACRWAD),DZ2 TEST EMPTY a 
VOOACE 6602 BNE.S QACIIK6 A: NOT EMPTY % 
O00ADO #unnn„„CYELIC BUFFER IS EMPTY SEND K-ON. „een un uno 
O00ADO #108 BSR.S QACIXB SEND ’%-ON’ ON COND. N 
000AD2 027CDBFF QACIX& ANDI =3D8FF,SR SWITCH IR ON a 
000AD& H15A QACIK?7 BSR.S GACIXE EMIT MR-BUFFER 1/A 
O00ADS HEDS IMP AS? RETURN TO CALLER * 
O00ADA Runen. SEND X-DN ON CONDITION „.. ernennen 3 


VOVADA ZUSF QACIKB MOVEA.L (A7)r,A2 RETUR R * 
O00ADC 7011 MOVEQ =$11,Dö LOAD CHAR ’ 
O00ADE 08A800020120 BCLR =2, ACSTRCAQ) TEST AND RESET ’ 
OOOAEH GU0OOFDEC BNE IRSNUO B:SEND 'X-UN? U 
OOORAEßB LHEDZ IP (A2) EXIT, NN AUTION # 
OOOAEA #.our. ENTRY FOR UNBUFFERED READ - „un -nuunuuneunat 
OVOAEA 3143010A QACIX9 MOVE 03, ACRW AO) CLEAR BUFFER W=R * 
OOOAEE 3142011C MOVE D2, ACRCC AU) READER-CGUNT ab 
O0O0AF2 OBABOOUL0120 BELR =1, ACSTR(AO) FLAG 'NO PROTOCOL? " 
OOOAFB 42690024 CLR RECLENCAL) RESET COUNTER I 
OVOAFT #ennar CYCLIC INPUT-BUFFER IS EMPTY, SEND X%-DN a 
OOOAFC Arocca A,8,C COMMON INPUT CODE --SEC' TON M 
OOOAFC &1DC QACIKXA BSR.S WACIKB SEND X-ON DON COND, 
OOOAFE 4AZBO121 TST.B ALEMULAD: IF EMULRTED TERMINALA 
O0NB02 670A BEQ.S GACIXB BENUT EMUL. TERMTNALK 
O000BOu 027CD9FF ANDI =%DEFF,SR IR ON a 
000808 61000030 BSR QRCIXF MAKE THIE ECHD * 
O00B0OC “EUR IROFF STOP IR # 
O00B0E 522B01L1A BACIKXB ADDY.B =1, ACISı AD) SWLICH INPT TO GE sr 
VO0UB12 OBEEUOOLOVUZU BACIKC BSET | - =BLKOSU,ELOCK AS) STOP THE Tasız R 
O00318 027CDEFF ANDI =%DBFF ,SR IR UN » 
O00B1C 4HEL3 VDPT Male THE STOP * 
OO0B1E LHA280121 TST.B ACEMUCAO) IF EMULATED TERMINAL»H 
000822 &7B2 GEG.S BACLA7 EB: NOT EMUL. TERMLNALH 
000B24u 81000014 BSR gac De MAKE THE ECHU k 
OO0OR28 4EULF IRDFF sıup IR a 
ONOB2A HAZBOLLA TST.B ACISCAUI IF STILL ON CE * 
000BZ2E &4E2 BNE.S WALIKC 1COPING, WATT MEAT 
ONUB30 KOAO BRA.S UWALIX& LAST ECHO TREN DICLT 8 
000032 #unnnn SUBROUTE ECHO ALL CHAR FROM XHR-CYC-DUF it 
000832 WAZBOL2L QACIKE TST.D ACEMULAOI IF EMUL ON L3 
000836 6602 BNE.S GALIXF 8: YES ErUL ON ir 
000838 4E75 RTS a 
O000B3A 3228010C GACIKF MOVE ACTR(AGN,DL READ- POINTER E 
V00B3E B268010E cHP ACTWAOI,DLI InSPEect FOR DATA ir 
O00B42 6602 BNE.S Tri EENOT ENPTY, SKIP » 
000Bu4 4E7S RTS EXIT, ALL DONE " 
000BU&6 DOFFOOB8 ADDA =ALTE, AO LDAD PTR a 
O0UB4HA 10301000 MOVE.B 0(A0,D1.W),DD BET IKHE BYTE ” 
O00BHE IOFLOUBB SUHA =AUTB, AO DI.D FIR 

©O00B52 S2yı ADDQ =1,D1 MOVE POINTER 


900854 C27COU7F AND zACTON, DL FIASK a 


000858 
O00B5SC 
000860 
000B&4 
000B&A 
000870 
000872 
000876 
000B7A 
000B7E 
000882 
000888 
00088A 
000B8E 
000892 
000898 
000B9C 
00083E 
O00897E 
V00BA2 
000BA& 
0008A8 
OOOBAE 
000880 
000580 
000BA4 
000888 
000BBA 
O00BBE 
600BC0 
O00BC4 
0008C6 
0008C8 
0008CA 
O00BCC 
OO0BECE 
000800 
000BDu 
O00BD& 
000BD8 
O00BDA 
O00BDC 
O00BDE 
O000BEO 
000BE2 
000BE4 
O00BE6& 
OO00BE8 
O00OBEA 
O00BEE 
000BrF2 
000BF& 
0008F8 
O00BFA 
OOOBFE 
O00C00 
000C06 
900C0A 
O00C9C 
O00C12 
000.14 


314H1010C 
4UBE760FO 
2678083E 
O8E800070002 
082800060002 
6708 
20780836 
WEABOOOH 
20780836 
GEAB0008 
082B00060002 
6708 
20780836 
HEABSOOOL 
O8AB00070002 
4EDFOFOS 
60°C 


027CD8FF 
24690020 
1212 
337C00010024 
HEDS 


Z1UEO114 
94290024 
7C38 
CC290028 
672A 
24690020 
4243 
Beu2 
6C20 
5243 
101A 
7E20 
FO3C000D 
sEFO 
870C 
7E1O 
S600 
6706 
Scoo 
u6Ey 
7E086 
CEO 
&7DE 
3403 
2U690020 
214A0192 
YAZBOLıZI1 
6634 
YELHF 
S142011E 
6724 
OBEEOOO4ODZU 
YAZEDLLE 
6610 
OB2BH0040120 
6610 
HIFAODOE 


GACIXG 


QACIKH 


Fuuocn 


GACIKN 


Hunaon 


QACIXO 


QACIXP 


QACIXG 


QACIXR 


MOVE D1,ACTRCAO) NEW PDINTER * 
NOVEM.L D1/D2/AV/ALZAZ/AB, -LA7) SAVE *® 
MOVEA.L IDPH,A3 INDEX-BUFFER * 
BSET =ACTION,STATI{AY) CHAR IN SERVICE * 
BTST =CURSF,STATItA3) CURSOR DN/UFF ? # 
BEQ.S BACIXG e: IF OFF * 
MOVEA.L TDP2, AO GET JUMPTABEL = 
JSR CHAINVEAO) MAKE CURSOR OFF * 
MOVEA.L IDOP2, AO GET JUMPTABEL * 
JSR SCREEN AO) CALL EMULATOR r 
BTST =LCURSF, STATL(A3? LURSOR ON/OFF B 
BEG.S GACIKXH B: IF OFF * 
MOVEA.L IDP2,AO GET JUMPTABEL u 
ISR CHAINV( AO) MAKE CURSOR DN R 
BCLR =ACTION,STATLCAS? CHAR 0% #* 
MOVEM.L (A7 3+,D1/D2/AO/AL/AZ/RS RELOADn 
BRA.S GACIHF LOOP ® 
EMPTY-BUFFER IN ’T?’-OPTION „unensunennenue 
ANDI =$D8FF,SR IR-SYSTEM ’ON’ ” 
MOVEA.L BUADR(A1L),AZ2 TEXT ADR # 
CLR.B (A2) A NUL * 
MOVE z1,RECLEN(AL)I GONE CHAR. N 
MP {A5) RETURN TO CALLER n 
QUTPUT-SECTIDN ATIA .. --uuueeeneennen en ne 
MOVE.L A&,ACTTID{IAO) TRANSM. n 
MOVE RECLEN(A1),D2 ASSUMED LENGTH # 
MOVEQ =MODMER+MODMLF+MODMED, D& r 
AND.B  MODE(A12,D& GOICK CHECH a 
BEQ.S QACIAR BENO DATA SCAN A 
MOVEA.L BUADR(AL),A2 TEICT-URG n 
£cLR D3 RESET RELLEN a 
[mp D2,03 RECLEN- TEST u 
8GE.S GACIXR BALL DONE [1 
ADDU =1,D3 COUNTER a 
MDVE.B (A2)+,DO INSPECT THE BYTE H 
MOVEQ =MODMER,D? TESI-FRAME a 
SUB.B =%00,00 FEST FOR CR [1 
B6T.S WALIKXP B: TAKE NEXT a 
BEQ.S GACIXG 8:60 FOR CHECI“ u 
MOVEQ =MÜDMLF,07 TEST-MASK Ei 
ADRQ.B =10D-1OA, DO TEST FOR LF ) 
BEQ.S UACI«O B:GD FOR TEST a 
ADDQ-B =30A-404,DO TEST FÜR EDT a 
BNE.S QACIAP TEST NEXT CHAR. a 
MOVEG =MDDMEU, D/ TEST MASK EOT Li 
AND.B D6,07 MODE-MATCH? a 
BEQ.S QACIKXP 8:NO MATCH a 
MOVE D3,D2 RECLEN- UPDATE 4 
MOVEA.L BUADREA1),A2 FOR EMUL. TERM. Ei 
MOVE.L AZ, ACTCADIAO) TEXT-ADR at 
TST.B ACEMUCAO) IF EMUL TERM. # 
BNE.S GACIKU B:EMUL./ VERMINAL n 
IROFF STOP ALL IR R 
MOVE D2, ACTEL AO? COUNTER-INIT u 
BEQ.S GACIKS 8:ND JOB a 
BSET =BLKBSU, BLOCK(A6) SUSPEND u 
TST.B ACTON(AO) TEST ACIA TYPE a 
BNE.S GACIKT 8:ACIA TYPE a 
8TsT =4, ACSTRIAO) READY TO SEND 7 a 
BNE.S WACIKS BD: NOT READY 1 


LEA QACIKS, Al RETURN ADR 


VOVS18 
VWWOLLT 
BCOECLC 
OHOC2V 
ODOLZL 
SOOC29 
RG eycı. 1 
OC2C 
VUoC2c 
G0O0C30 
VOHCHy 
VOCTIA 
VODTZUO 
SOCIHE 
OVDCH& 
OVOCHA 
VOVE4E 
OOOCSO 
VOLCH2 
VHOCSE 
OQOCSA 
SOOCEO 
VOUCE2 
OOOLCS& 
OOOLAHA 
000C70 
090674 
000C76& 
VHOC7C 
ÖOOC7E 


eis 78107: 77 
V000C88 
O00CBA 
VOOCBC 
OOUHCHE 
V00C90 
OOOC9AU 
0006978 
GOUC9IT 
DOOCAO 
VOHCAL 
OOOCA& 
VOUCA& 
O00CA& 
OOOCA& 
OOOCA& 


OOUCRAE 
O00CBu 


O0O0CBC 
600CC2 


GUOCCLA 
O0O0OL.DO 


OOUCDB 
VONOLDA 
V00CDA 
OVOLDE 


SLOHFO2E 


ZU&B000L 
1uA30119 
027LD8FF 
GEUS3 
WEUS 


4BE7EUIO " 
2678083E 
VBEBOCY7OUOZ 
082E00050002 
s708 
20780836 
YERBOOO 
4EDFOIOS 
S342 

6C2u 
4BE7E090 
2678083€ 
VB2BVU00K0002 
6708 
20780936 
HEABUONL 
VBRBN0070U002 
4CDFOFO6 
YEDS 
082800000120 
8710 
297C80000008 
006L 

2F09 

AO2C 

R2Sf 

S0EB 

101A 
4BE76OFO 
2678083E 
20780836 
VHERBOOOA 
UEDFUFO& 
SuA8d 


13FCO0OVFOOFF 
8800 
13C000FF8802 
13FCO00EOOFF 
8800 
022800DF03A2 
13EBOIA2ZOOFF 
8802 
6028002003A2 
13E803A200FF 
8802 
“ED3 


4E4I 
7208 


ORA IR&STOO 50 TRANSMITTER SECT * 
Brunnen ALLA IR ON „nuuenuurnuunnune nenn nn ren 
GACIXT MODVEA.L RSR(IAO),A2 GET COUPLER ADR * 

MOVE.B ACTONAO),CA2) SWITCH ACIA IR ON 
GACINS ANDI =3DaFF,SR IR-ON 

GDPCc STOP THE TASK 

JMP (A5} EXIT 


GACIKW 


OUTPUT TO EMUL. TERMINAL „.uurneennnunnner 
PFIDVEM.L D1/D2/AO/A3, -{A7 ) SAVE REG. 
MOVEA.L IDPU,A3 BUFFER-POINTER 

aseT ZACTION, STATIL(A3) CHAR IN SERVICE 
BTST =CURSF,STATILA3) CURSOR DN/OFF 


# 

* 

%# 

*+ 

+ 

* 

a 

% 

* 

BEG.S GACIWI 8: IF OFF * 
MOVEA.L IOP2, AO GET JUMPTABEL * 

ISR  CHAINVERO) MAKE CURSOR OFF “ 

QACIWL MCVEM.L (A7 )+,D1/D2/A0O/A3 RELOAD * 
GAcIV2 SuBU =1,D2 COUNTER * 
BGE.S WACIXY B: THERE IS DATA ” 
MOVEM.L D1/D2/A0/R3, -(A7 ) SAVE REG. * 
MOVEA.L IDPW,A3 BUFFER-PTR. * 

BIST SCURSF,STATLLA3) CURSOR ON ? " 

BEN.S QACIWI B: IS OFF * 
MOVEA.L IDP2, AO GET JUMFTABEL * 

ISR CHAINVCAO) MAKE EURSOR ON ” 

QACIWI BELR ZACTION, STATICA3) CHAR OK a 
MOVEM.L (A7 Ir, DL/D2/AO/A3 RELDAD * 

np (AS) ALL. DONE, RETURN 

QACINY BIST =O,ACSTRIAU) TEST IF STOPPED M 
BEQ.S WALINZ GO AND SEND ONE BYTE# 

MOVE-L =3800U0008, OPFATI.T RESUME-TIME & 

MOVE.L Al, (AM) SAVE Al * 

OTYIRE TIME-RESUME * 
MOVEA.L (A714, Al RELOAD Al # 

BRA.S WACIKY REPEAT THE TEST * 

BACINZ MOVE. (AZ )+,DO LOAD THE CHARACTER 
MOVEM.L D1/D2/A0/A1/A2/A3, -1A7 ) Save * 
MOVEA.L IDP4,A3 BUFFER-INDEX * 
MOVEA.L IDP2, AO GET JUMPTABEL ® 

JSR  SCREENAO) EmUl.. TERMINAL ’ 
MOVEM.L (A7 )+, DL/D2/AO/AL/A2/A3 RELOAD« 

BRA.S QACIW2 ” 

1 EERNORSEREE a BRECHEN REN EEE EEE RER. 
Munnn. SEND A BYIE FROM DO-B -unenneneneenennen net 
* AO POINTER TO IRSBUFF * 
* A3 RETURN ADR * 
PPOUT MOVE-B =S0F,PSGA SELECT PORT ® * 
MOVE.B DO, PSGD OUTPUT DATA * 

MOVE.B =50E,PSGA SELECT PORT A * 


GCENTO 
GCENT 


ANDI.B =1DF,STAPSG(AO) PREPEARE STROBE LOWs 


MOVE.B STAPSG(AO),PSGD SET STROBE LOW ® 
ORI.B =120,STAPSGLAO) PREPEARE STROBE HIG® 


MOVE.B STAPSG( AO), PSGD SET STROBE HIGH 
Imre 1A3) RETURN TO CALLER 


GRELCE RELEASE THE CE 
MODVEQ =PFLDN,Dı GET OWN LDN 


R* 
# 
Rennna „CENTRONIX DRIVER TASK „nuurnunennun nenn nen 
* 
a 


OLOCDE 
VOOLEZ 
OOOCE& 
QO0CE& 
OO0LEA 
VO0OOCEE 
VOOOCFZ 
OOOLFH 
VOOOLF& 
VOO0OLFA 
OGOCFE 
V00D00 
OHOD92 
OCODOh 
000004 
000008 
900DYA 
VOODUE 
OVOD1O 
VO0D12 
000D14 
000D1& 
GO0D18 
000D1A 
O00D1C 
OO0DLE 
VUOD20 
O00D22 
NOUDEM 
VLOOD2B 
VOHD2C 
VOUDZE 
O0LDA2 
V0003Uu 
VOGD3A 
VOODSC 
OOUDS| 

000042 
VOVDH6 
ONAKD4C 
O00DSU 
GOHD5H 
VOODSE 
000DSC 
OUODEU 
ULNODEZ 
UUUDE& 
O0O0D&E& 
VOOD&& 
G0OD&& 
VOUDA& 
0CHDE& 
OYODS& 
000DE6& 
VVUDSAh 
VHODE&E 
VGU0D6& 
O00D&& 
QUODEe 
OOUD&& 
YOUDOR 


20780846 
26780802 
GELD 
HELL 
Z14E03AU 
34290024 
7C38 
UC290028 
872R 
Z2U690020 
4243 
Böh2 
sca0u 
5243 
1018 
7E20 
FLILOOOD 
$EFO 
s75C 
7E1O 
SHVU 
6706 
5coo 
s6Eu 
7EOB 
CEO6 
&/DE 
3403 
ZUOF70UL20 
21UAO3AA 
HEUF 
314209AE 
6728 
082800 HIH3AB 
671ıA 
191A 
4+7FAUUDS 
&SO0O0UFF&2 
OBRBEUULLOZAB 
214HAOBAA 
SI6B03AE 
8706 
VBEEUUOQHOOZU 
V27LCDBFF 
“E43 
EDUOFF76& 


GOONNOOO 
YURUIOHZ2 
OHILOHOM 
VHUHUOO& 
OO0OCOLOB 
VOHAUYUR 
VOONOGOC 
VOIHOYUVE 
VOVOOOLN 
WOYUGLZ2 


GCENTP 


GcENTE 


OCENTR 


QLENTS 
GCENTU 
SCENTT 


MOVEA.L IDP&, AO 
MDVEA.L TID,A& 
9100 

QTERMI 


MOVE.L As&,PPTID(AO) 
RECLEN(A1},D2 ASSUMED LENSTH 
=MODDMER rMODFLF-+MODMEO, D& 


move 
MOVEQ, 
AND.8 
BEQ-S 


MODE( AL ?,D& 
SCENTR 


MOVEA.L BUADR(AL),A2 


GET POLNTER TO 


IR BUr 


GET TID OR DWN TASK * 


TAKE OF QUEUE 
IF nD CE THERE 
TRANSM. TID 


QUICK CHECK 
B:NO DATA SCAN 
TEXT-ORG 


BARS HEFT EFF EU N I ZH EHE FR FH U a 


»* 
4 


ELR 03 RESET RECLEN 

cup 02,D3 RECLEN-TEST 
BGE.S GCENTR B:ALL DONE 

ADD =1,03 COUNTER 

MOVE.B (A2)+,DO INSPECT THE BYTE 
MOVEQ =MDDMCR,D/ TEST-FRAME 

SUB.DB =30D,DO TEST FOR CR 
BGT.5 QLENTP 8: TAKE NEXT 
BEG.S GCENTQ B:60 FOR CHECK 
MOVEQ =MDDMLF,D7 TEST-MASK 

ADDQ.E =%0D-40A, DO TEST FOR I.F 
BEQ.S GCENTQ B:G60 FOR TEST 
ADDN.B =F0A-504,DO TEST FOR EOT 
BNE.S UELENTP TEST NEXT CHAR. 
MOVEQ =MODMEO,D7 TEST MASK EOT 
AND.B D6,D7 MODE -MATCH? 
BEQ.S GCENIP B:ND MATCH 

MOVE D3,D2 RECLEN -UPDATE 
MOVEA.L BUADRALI,A2 GET TEXT START ADR 
MOVE.L A2,PPCAD(AO) TEXT-ADR 

IROFF STOP ALL IR 
MOVE D2, PPCNT( AO) COUNTER-INIT 
BEQ.S UCENTT B:NO JOB 

BTST =0,PPSTAT(AO) 15 THE PORT FREE ? 
BEQ.S GCLENIU B:IF NOT 

MOVE.B (A2)r,DO GET DATA 

LEA GCENTS,A3 RETURN ADR 

BRA PPOUT SEND THE BYTE 
BCLR =0, PPSTATLAUI PORT NOT FREE 
MIVE.L A2, PPLAD(AO) STORE DATA ADR 
EIN :Ie] =1, PPCNT( AD) VECREMENT BYTE LOUNTAt 
BEQ.5S UCENTT IF 308 15 DONE 
BSET =BLKBSU, BLUCK(AL) SUSPEND 

ANDL =4DIFF, SR IR-ON 

GDPC STOP THE TASK 
BRA BCENTO EXIT 


“ 


EaElZ Si2E 22 212 Din Zn Z Z12 212 Zn Zn ZZ al zZ Zn ED ZZ Zn 2 212 22020220272 


* 


Auen. TER.EMUL. -PARAMETER INSIDE BUFFER. .„uurun.* 


# 
TERMD 
STATI 
SATZ 
STAT3 
COLOUR 
LINE 
COLUMN 
LURT 
TcHar 
AUTUD 


EQU oO 

ERU TERMDrZ 
EQU STATI+2 
EQU STATa+2 
EUU STAT3+r2 
EQU COLDUR+2 
ERU LINE+2 
EUU COLUFN+2 
ENU CURT+Z 
EQU CHAR+2 


ADR-IINK TERM 
TASTATUR STATUS 
HIGH/LOW RES. 
ESC STATUS 
AKTUEL COLOUR 
AKTUEL LINENUMBER 


AKTUEL COLUMNNUMBER 


EURSOR BLINK DELNY 


CHAR. FOR AUTO REP. 


DELAY RATE COUNTER 


e 
% 
* 


STATUSH+ 


000D8& 
000D4& 
000088 
000D4& 
V00D8& 
OO0D4& 
000D66 
OVO0ODsL 
000D56 
000056 
000D6& 
OO0D&& 
000D6& 
0000866 
O00Dd& 
000065 
000D6& 
O0O0D66& 
000D66 
000D6& 
000D66 
000066 
000D66 
000D&6& 
000D6& 
VO00DA& 
O00D66 
000D66 
000D6& 
OU0D&& 
000D6& 
000086 
V00D86& 
000D6& 
000066 
000066 
000D6& 
0000856 
000D6& 
000D66 
000D6& 
000D65& 
000066 
000066 
000D66 
000046 
000D6& 
O00D&& 
000Dd56& 
000D664 
000D66 
000Dd& 
ON0D6& 
OUOD6& 
OOND5&S 
000D656& 
VO0Nn&& 
000D6& 
000066 
000Dd& 
000D66& 


V0000001h 
00000016 
00000020 
00000022 
00000024 
00000026 


0000002A 


V0000002C 


00000000 
00000050 
000000AO 
O00000F0 
00000140 
000001970 
VO00U1EO 
00000230 
00000280 
00000200 
00000320 
00000320 


00001400 


00000000 
00000091 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 


00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
O000C00& 
00000007 


00909000 
06000001 
00000002 


VON00001E 
00000003 


AUTOS EQU AUTOD:Z STEP RATE COUNTER * 
KEYADR EQU AUTOS+2 MAUS RECEIVER PIR #* 
SCRLEN EQU KEYADR+10 SCREEN LENGTH 24/25 = 
SCRCOL EQU SCRLEN+2 COUNT FOR CLR/SCROLL® 
SCRCO2 EAU SCRCO1+2 COUNT FOR SMOTH * 
RET EqQU SCRLO2+2 PLACE FOR SAVE # 
TEMP  EQU RET+4 

IuULEN EQU TEMP+2 FUNKTION BUFFER * 
Bemmmıhmmnnı nn 1 2 nn # 
Fi EQU ° # 
F2 ERU F1+B0 * 
F3 EQU F2+80 * 
Fu EQU F3+80 " 
FS EQU F44+80 * 
F& EQU F5+80 * 
F7 EQU F&r8a0 * 
F& EQU F7+80 nn 
F? EQU F8+80 * 
F1O EQU F9+BO * 
FKLEN EQU F10+80 ARRAY-LENGTH * 
CHART EQU FKLEN CHARACTER-TABLE ® 
#-=-=---- * 


#oan... IMPLEMENTATION-DATA TERMINAL EMULATION....# 
a g # 
TEMUL EQU $S1400 FREE FOR TERM. -EMULAH 
* TEMUL MUST END WITH O0 ! auenneonen 


es ee 
#uuun. STATI-WORDA#STATUS-BIT’S .. era er a 
ERTLF EQU © CONTROL FLAG * 
SHIFTTF EQU ı SHIFT FLAG x 
CAPSF EQU 2 CAPSLOCK FLAG * 
KEYF  EQU y KEY FLAG * 
ALTF EQUu 3 4 ALTERNATE FLAG * 
SCRÜULF EQU 5 SMOUTH SCROL FLAG * 
CURSF EQU & CURSOR ON FLAG » 
ACTION EQU 7 CHAR IN SERVICE * 
Runenn STATZ-WORDERSTATUS-BLTIS onnennereneunenun 
AUTOY EQU © DELAY END ” 
AUTOR EQU ı REPEAT END * 
CURB EQU 2 CURSOR BLINK x 
HILQW EQU 3 HIGH/LOW RESOLUTION * 
GER EU u GERMAN-TYP a 
EC {ÄEqQU 5 ESC WAS PRESSED a 
escı EQU 6 1ST CURSOR-POS. ix 
Esc2 EQu 7 2ND CURSOR-POS. * 
Hanne. STATS-WORDRASTATUS-BITIS zenuenannunanennc 
Esccı EQU © 1ST VIDEO ATTRIB * 
REV EQU ı CHAR REVERSE * 
UND ERU 2 CHAR UNDERLINE ” 
aa en en eek “ 
REP EQuU 30 DELAY RATE En 
RATE EQU 3 REPEAT RATE x 
# % 
een ee at 
= % 
#......DNE CHARACTER FROM TASTATUR-umnnnnnennun nat 
* # 
E AO : POLNTER a 
® Ai : POINTER a 
” Aa : BUFFER-POINTER “ 
* DO : DATA BYTE ” 


000D&6& 
O00D66& 
000D&& 


000070 
000D70 
000074 
00007A 
000D7E 
000D80 
000082 
000D8a4 
000088 
000D&C 
000090 
000D9u 
00009& 
O00DIA 
000D9E 
O00DAO 
O00DA4 
O00DA& 
000DA& 
O00DAC 
000D80 
000DB4 
000D88 
000D8A 
000DBC 
000DCO 
000DC2 
000DC6 
000DCLA 
OO0ODCE 
000DD2 
000DD8 
O00DDE 
O00DDE 
O00DDE 
000DE2 
O00DEN 
O00DE8 
O00DEC 
O00DFO 
V00DF4 
O00DFUu 
O00DF& 
OO0ODFE 
O00E00 
VOODEO2 
000E08 
OODEOC 
000EOC 
000E12 
OO0E14 
VO0O0E1& 
000E1C 
000E1E 
O00E1E 
O00E24 
000E25 


080603030303 
67030202 


2678083E 
103900FFFCO2 
4A2BOOL& 
&7SE 
014 
1200 
FO3COOF& 
103B00DC 
17400016 
42280017 
1001 
49EBOOLE 
52280017 
YHzul 
12280017 
B211 
6708 
13801001 
&000011E 
13801001 
12280016 
5301 
5489 
Y1LFBOBE& 
10D7 
SIC9FFFE 
422B001& 
UCDFAFO3 
4BE7U3UO 
229080000000 
2278080E 
YEDi 


OCLOOOUF& 
629E 

22780836 
43E90020 
08800007 
66000226 


06000073 
sL0000D2 
OC00003A 
660A 
086800020002 
6s00000L2 


082800000002 
670A 
06400180 
10310000 
6050 


082800040002 
6730 


D1 : COUNTER 


x 


MAUST DC.B 8,6,3,3,3,3,7,3,2,2 ” 
® ns 
KEYINA MOVEA.L IDP4,A3 BUFFER-INDEX » 
MOVE.B ACIALD,DO RECIEVE TASTATUR KEY« 
TST.B KEYADR(A3) BYTECOUNTER == 00 ? 
BEQ-S KEYING B:ND STATUS MESSAGE a 
BRA.S KEYIN2 ” 
KEYINI MOVE-B DO,D1 SAVE 5 
SUB.B =1F6,D0 SET BYTECUUNTER a 
MOVE.B MAUST(DO.W),DO NUMBER OF BYTES # 
MOVE.B DO,KEYADR(A3) STORE NUMBER OF BYTEA 
CLR.B KEYADR+1(A2) CLEAR FOR COUNT * 
MOVE.B D1,D0 RELOAD ” 
KEYIN2 LEA KEYADR(A3),Al ADR FOR KEYBORD DATAH 
ADDG-B =1,KEYADR+1LA3) COUNTER+L E 
CLR D1 u 
MDVE.B KEYADR+1(A3),D1 COUNTER ” 
CMP.B {A1),01 MORE BYTES ? ” 
BEQ.S KEYIN3 8:IF LAST BYTE n 
MOVE.B 00,11A1,D1.W) STORE BYTE u 
BRA OUTNUL EXIT * 
KEYIN3 MOVE.8 DO, 1(Al,D1.W) STORE LAST BYTE ® 
MOVE.B KEYADR(A3),D1 NUMBER OF BYTES * 
SUBQ.B =1,D1 a 
ADDQ.L =2,A1l POINTER TO BYTES * 
LEA MAUS, AO POINIER TO MAUS a 
KEYINS MOVE.B (A1)+,(AO)* STORE BYTES * 
DBF D1, KEYINS B: NOT READY a 
CLR.B KEYADR(A3) CLEAR FOR NEXT HEADE* 
MOVEM.L (A734, DO/D1/AO/AL/A2/AB/AU RELOAD 
MOVEM.L D1/06/D7/Al,-(A7) SAVE " 
MOVE.L =380000000,D1 SET EVENT CODE “ 
MOVEA.L PIRTRI,AL SOFTWARE INTR * 
IMP (Al) AND EXIT a 
* # 
KEYINY CMPI.B =$F6,DO STATUS HEADER ? ” 
BHL.S KEYINI B: YES ” 
MOVEA.L IDP2, Al GET TABEL INDEX “ 
LEA TABLAL),AL START ADR 1.TABLE x 
BELR  =37,00 KEY DOWN -? " 
BNE up B: nD » 
PS UEN NE Zus BEE BI EERIEIE DSENE IE so NER NENNE BR 
DOWN CMPI.B =$73,DO TOD GREAT ? * 
8GE QUTNUL EXIT " 
CMPI.B =$3A, DO KEY CAPSLOCK ? ” 
BNE.S CRTL B: NO ” 
BCHS =CAPSF,STATLCA3) TOGGLE CAPSFLAG = 
BRA OUTNUL EXIT * 
* 3 
CRTL_  BTST =ERTLF,STATLLAR) CONTROL FLAG TRUE = 
BEQ.S ALT B: NO » 
ADDI.W =4180, 00 INDEX TABLEY Pi 
MOVE.B :0(A1,D0.W),DO READ TABLEL n 
BRA.S OUT EXIT # 
” * 
ALT BTST  SALTIF,STATICA3) ALTFLAG TRUE ? a 
BEQ.S SHIFT B: NO N 
* SıA <= DO <= 28 ( UE, DE, AE I) 7 


V00E26 
VOUE2& 
VODEZA 
VOGEAC 
VOOESO 
VOVE32 
OO0EI& 
UOGEST 
OODESE 
VOVELO 
VOOEHY 
O0VEHB 
O00EHA 
OQUEHE 
O0O0ESO 
UVOES4 
OHOES& 
UQUES6 
VOOESC 
VOOVESE 
V00ES2 
QUVESS 
OOUEO8 
OOOGES8 
OOOEGE 
VOUE7O 
VODE7U 
VVOE78 
OO0E7A 
VBOOEF/A 
OONDE/E 
UOVETE 
V0O0E7E 
VOVE7E 
VOOOEB2 
V00E82 
O00EB2 
OVOEA& 
OOVEBA 
OVVEAC 
VOOEFO 
OGDEIU 
WOEFL 
V00EI6 
OLIEYT3 
O0UEIA 
VODEAT 
OOOEIE 
VOOEAD 
OVVERZ 
DOOEAM 
VODERA& 
VUDEAB 
UULYEARA 
VOVEAG 
OUVYEHE 
UNdEBO 
VOVEDZ 
OOOEBY 
VGUEBE 
COOEBS 


OCTYO001A 
6&D2A 
0LOU0028 
sE18 
GUHO0001A 
082800010002 
6702 
SU4O 
06400200 
10310000 
5034 
OLC000082 
6606 
103C0001 
S0EO 


V82B00010002 
670A 
VA400080 
16310900 
6016 


0828900020002 
670A 

O64 00100 
10310000 
H00U 


10310900 


SAOOO19O 


37400026 
VZUUOOLF 
E340 

30380006 
“EFBOONZ 


9038 
O04uC 
0054 
VOSC 
0084 
©V6C 
007Uu 
VOTE 
OOBu 
Vusc 
VOFu 
VODA 
0038 
VODH 
0138 
Y13C 
0108 
or 
o1u8 


ALTO 


ALT 


ALT2 


* 
SHIFT 


» 
CAPS 


* 
OUTTAB 


CHPI.D 
BLT.S 
CMHPI.B 
BST.S 
SUBI.B 
BTST 
BEQ.S 
ADDG 


ADDI.W = 


MOVE.B 
BRA.S 
cCMPI.B 
BNE.S 
MOVE.B 
BRA.S 


8151 
BEQ.S 
ADDI.W 
MOVE.B 
BRA.S 


BT51 
BEQ-S 
ADDI.W 
MOVE.B 
BRA.S 


MOVE.B 


NOW KEY-STRING IS IN DO. „„nreunenunenununs 


NO ASCII OUTPUT» neue nunnuoerennennennnnne 


OR DO EQ &2 


=$1A,D0 IS Do LT sıa ? 
SHIFT 2. NO 

=$28, DO IS DO GT 328 ? 
ALT2 B: ND 

=$1A, DO vEs 

SSHIFTF, STATLCA3) SHIFTFLAG TRUE ? 
ALTL 8: ND 

=2,00 INDEX + 2 

=%200, DO INDEX TABLE 5 


READ TABLE 5 
EXIT 

IS HELP HIT ? 
8: NO 


2 Zu = 2 u 2 zZ 2 2 ze zu 


MAKE INDEX FOR TABLE# 


=SSHIFTF,STATILA3) SHIFT FLAG TRUE 


CAPS 

=380, DO 

$0( AL, DO.W),DO 
DUT 


8: nD 

INDEX TABLE 2 
READ TABLE2 
EXIT 


za sun 


=CAPSF, STATICAI) CAPSLOCK FLAG TRUER 


SMAL 
=%100, DO 

30( AL,DO.W),DO 
OuT 


301 AL,DO.W),DO 


BPL  DUTRTS 

MOVE DO,RET(A3) 
ANDI  =S001F,DO 

ASL  =1,D0 

MOVE  OUTTAB(DO),DO 
MP  OUTTAB(DO.W) 
De OUTNUL-OUTTAB 
De KEYF1-DUTTAB 
oc KEYF2-OUTTAB 
pc KEYF3-OUTTAB 
DC KEYF4-OUTTAD 
oc KEYFS-DUTTAB 
DE KEYF&-OUTTAB 
DC KEYF7-OUTTAB 
Dec KEYF&-OUTTAB 
DE KEYF9-DUTTAB 
pc KEYF1O-OUTTAB 
DC SHIFS-DUTTAD 
DC OUTNUL-OUTTAB 
De CTALS-OUTTAB 
oc HOME--OUT TAB 
bc CHAINS-OUTTAB 
DC BREAK-OUTTAB 
DC HELPTS-UUTTAB 
oc LININS-UUTTAB 


B: NO 

INDEX TABLEI 
READ TABLE3 
EXIT 


READ TABLEI 


8: IF ASCIIL STRING 


SAVE CHAR 
GET TABLE INDEX 


LOAD FROM TABLE 
JumP BY TABLE 


NOTHING 
FUNCTIONKEY 
FUNCTIONKEY 
FUNCTIONKEY 
FUNCTIONKEY 
FUNETIONKEY 
FUNETIDNKEY 
FUNCTIONKEY 
FUNCTIONKEY 
FUNCTIODNKEY 
FUNCTIONKEY 
KEY SHIFT 
CAPSLOCK 
CONTROL 
HOME 

INSERT 

UNDO 

HELP 
SHIFT+INSERT 


kSEseUuUronr 


BHEHAN KEN F RE ER SH EEE SE a 


O00EBA O0EL DC 


3 


ALTS-DUTTAB ALTERNATE 73 


O000EBC OÖDEE DC SCROLS-OUTTAB CTRL+CURSOR LEFT 9u 
OO0EBE O0F& DE SMOOTS-OUTTAB CTRL+CURSUOR RIGHT9S * 
V0O0ECO 0102 DC ABORT-DUTTAB SHIFT+UNDO 95 * 
O0O0EC2 OLOE DC EHGSIZ-OUTTAB CTRL+CURDOWN 97.“ 
O00ECH O12E DE HELPSH-OUTTAB SHIFT+HELP Ei: 
O0O0ELS 0154 oc CHADEL-QDUTTAB DELETE 97 = 
O00ECB 0180 DE LINDEL-OUTTAB SHIFT+DELETE AH 
OO0DECLA 0178 DE HEPY-DUTTAB ALTERNATE-+HELP ar 
OO0ECE * * 
OOOECC Bonnnonsnunenenanenun ernennen eur runs nenn nme 
OO0EFC * “ 
OO0ELC 4240 QUTNUL CL.R Do NO ASCII STRING * 
O00ELE 37400010 MOVE DO, CHAR(A3) CLEAR CHAR #* 
000ED2 377C0V1E0012 MOVE =REP, AUTOD( AI) SET AUTOREP COUNT %* 
O00ED8 08ABO0000004 BCELR =AUTOY, STAT2(A3) DISABLE AUTOREP # 
OO0QEDE YEDL MP (Au) EXIT # 
O00EEO * % 
O00EEO 247L00000000 KEYF1 MOVEA.L =F1,A2 LOAD POINTER * 
VOO0EE& 60L& BRA.S KEYFA GD ON = 
OOOEEB 247C00000050 KEYFZ MOVER.L =F2,R2 LOAD POINTER * 
OO0OEEE &03E BRA.S KEYFA GO ON * 
OO0EFO 247C000000A0 KEYF3 MOVEA.L =F3,A2 LOAD POINTER E 
OOOEF& 6036 BRA.S KEYFA 60 ON = 
OODEFB ZU 7COOOUOOFO KEYFu MOVEA.L =Fu,A2 LOAD POINTER * 
O0O0EFE &02E BRA.S KEYFA GO ON = 
V000F00 24U7C00000140 KEYFS MOVEA.L =FS,AZ LOAD PUINTER * 
000F06 6026 BRA.S KEYFA 60 ON # 
OO0OFO8 247C00000190 KEYF& MOVEA.L =F&,A2 LOAD PULNTER “ 
VOOFOE SO1E BRA.S KEYFA GO ON * 
O00F10 24 7LO00001EO KEYF? MOVEA.L =F7,A2 LOAD POLNTER “ 
O00F1&6 6016 BRA.S KEYFA GD UN [3 
000F18 247C00000230 KEYFB MOVEA.L =F8,A2 LEAD PUÜLNTER a 
O0OOF1E 600E BRA.S KEYFA GU ON * 
V00F20 247C000002B0 KEYFF MOVEA.L =F9,A2 LOAD FOLINTER ” 
000F26 6006 BRA.S KEYFA GL ON n 
O00F28 247C00000200 KEYF1O NDVEA.L =F1U,A2 LOAD PUINIER * 
ONOFZE DSFBOBLE KEYFA ADDA.L FUNKP,A2 POINTER READY # 
O00F32 4BE7 1004 MOVEM.L D3/AS,-(A7) SAVE # 
O00F3& Z2AUA MOVEA.L A2,AS PTR » 
000F38 4243 KEYFIN CLR 03 a 
OO0OF3A 161D MOVE.B (AS I+,D3 DATA LENGTH » 
O00FSC OBEBOGOIO002 BSET =KEYF,STATICAYI SET KEYFLAG [ 
000F42 S1C30016 KEYFB DBF 03, KEYFC B: IF DATA NOT END 
000F4&6 1015 MOVE.B (AS),DO LAST DATA a 
O00FUB 49FAFIF& LEA IRSZOL, AL EXIT ADRESS 03 
OOOF4C LHEDF200B MDVEH.L (A794, 03/AS RELDAD * 
O00F50 376B00260010 MOVE RET(A3)I,CHARCAB I FOR AUTOREPEAT “ 
000F56 SU000F7&4u BRA IRLIOZ IR EXIT “ 
00. FSA 101D KEYFC MDVE.B (AS )+r,DO READ DATA " 
00: FSC LHOFAFFER LEA KEYFR, Au REIURN ADRESS « 
VOUF60 6000F75A BRA IR6IO2 SEND DATA TO CMID u 
000F&4 4 a 
ODOF&u OBEBOOOGOOV2 CTRLS BSET SERTLF,STATILA3I SET CONTROL FLAG #* 
OOUF&EA SUOGOFF&O BRA OUTNUL EXIT # 
O0OOF&GE VBEBOOOLOVOZ2 SHIFS BSET SSHIFTF,STATICA3? SET SHIFT FLAu ” 
O00F74 SO00FFS& aRrA OUTNUL EIIT DJ 
O00F78 ÖBEBOOOLOOOZ ALTS BSET =ALTF,STAT1ICA3? SET,ALTERNATE FLAG x 
GUOFTE SO00OFF4C BRA OUTNUL a 
OFBZ OBABOOCS0002 SCROLS BELR =SCROLF, STAT1LLA3)I SET SCROL 3 
GOYGF88 A0OOFF42 BRA OUTNUL ar 


VOOFBC 
000F92 
O00F?& 
OO0FFA 
VOOF9C 
SOOFFE 
VOOFA2 
VOOUFAS 
VOO0FAB 
VOOFAC 
OOOFAE 
QUOFBO 
VOOFBH 
VOUFBB 
VOOOFBE 
VOOGFC2 
OOHFCB 
VOOFCT 
OHOFDO 
VUOFDu 
VONHFD& 
VOUFDE 
OODFEG 
VOOFEL 
ONOFEB 
OOOFEC 
VOOFFO 
VOUOFF4 
ONOFFB 
GUOFFC 
001000 
01003 
001006 
901.009 
OH1LOC 
OO1UOC 
001010 
001010 
901010 
volo14 
001018 
001018 
021018 
001018 
O0191C 
OU1V2O 
001022 
001028 
ONn102C 
UULOZL 
OR1D30 
OULLIZ2 
001038 
OOLOIC 
O0103C 
001040 
0010444 
OQ104A 
OO1OHE 
OO104E 
OOLÖLE 


VOBEBOO050002 
SOOOFF38 
2278007C 
WED 
vauo 
4EFAF826 
30280008 
SZuo 
02400003 
6602 
S2u0 
3740U008 
&000FFiS 
Z1FA081A0BLHA 
SOUOFFOC 
ZiF8083AU8UH A 
SOHOFFOZ 
SOHUOFEFE 
4BE7100M 
GBFAOOZA 
6000FFSE 
4BE7 1004 
WBFAUOZ21 
SUUOFFS2 
4BE7 LONU 
4BFAUOLE 
SOOUFFH& 
4BE71OU4 
4BFAONOF 
SOOOFF3A 
GL1B0C 
BLLAOA 
VL1B08 
VL1B0B 


GUVOUFEBE 


37400010 
SO00FAA& 


10910000 
OLCONO08D 
H60A 
V8ABOOO00002 
SOOVFERA2 


OLOOHOGSB 
G60A 
O8RBO0010002 
6ODOHFEF2 


OCO0U073 
SH00OFEBA 
OBABODOLOOO2 
SO0UFEBO 


SMOOTS BSET =SCROLF,STAT1ICA3? SET SMOOTH SCROL r 


BRA DUTNUL * 
ABORT MOVEA.L $7C,Al FETCH ABORT ADR * 
MP caı) * 
BREAK CLR Do BREAK CONDITION * 
MP IR&UOO * 
CHGSIZ MOVE CDLOUR(A3),DO a 
ADDR =1,D0 PEN-COLOUR + 1 * 
ANDI  =30N03, DO MAX PEN EQ 3 * 
BNE.S CHGSIL B: NOT ZERO # 
ADDQ =1,D0 Fr 
CHESI1 MOVE DO,COLOUR(A3) SAVE * 
BRA OUTNUL * 
HEI.PTS MOVE.L VIDEGP,IDP?  VIDEOR TO SCREEN 0 a 
BRA OUTNUL " 
HELPSH MOVE.L IDP3, IDP7 vIDEOP TO LAST SCREEN * 
BRA OUTNUL * 
HOME  BRA DUTNUL NO ACTION YET * 
CHAINS MOVEM-L D3/AS,-(A7) SAVE n 
LEA CHAINT, AS LORD POINIER n 
ERA KEYFIN MAKE THE INPUT * 
L.ININS MOVEM.L DI/AS,-{A7) SAVE a 
LEA LININT,AS LOAD POINTER * 
BRA KEYFIN MAKE THE INPUT " 
CHADEL MOVEM.L D3/AS,-{A/) SAVE “ 
LEA CHADE', 45 LOAD POINTER * 
BRA KEYFIN MAKE THE INPUT ” 
LINDEL MOVEM.L DI/AS,-tA7) SAVE * 
LEA LINCET, AS LOAD POINTER * 
BRA KEYFIN MAKE THE INPUT # 
CHAINT OC.8 #1, t1B,30C XESC FF> " 
LININT DC-D 401, +1B,30n <ESC LF> w 
CHADET DC.B 301,418, 108 <ESC BS> * 
LINDET DC.B OL, 61B, 308 zESC YT; ” 
Kuoneunoununsueeenemen nen een rennen nenn nn ut 
HCPY  BRA OUINUL * 
Be nn a a te ea, 
#* # 
DUTRTS MOVE DO,CHARCA3) SAVE CHAR AUTFOREP = 
BRA IREIOZ * 
R ar 
PR LSERE FEAR EEE II R EIER EVER EENDESEEE 
a 4 
[2 MOVE.B 501A1,D0.W),D0 # 
CMPI.B =48D, DO KEY CONTROL ® 
BNE.S SHIFTU 4 


BCLR =CRTLP, STATICA3) RESET CONTROL FLAG« 
BRA OUTNUL a 


# 
SHIFTU CMP1.B =488,D0 KEY SHIFT u 
BNE.S ALTU + 
BELR =SHIFTF,STATILA3) RESET SHIFT FLAG # 
BRA OUTNUL ” 
* %* 
ALTU tMPI.B =393,DO KEY ALTERNATE Ak 
BNE OUTNUL a 


BCLR SALTF,STATItAI) RESET ALTERNATE FLA%* 
BRA OLUTNUL * 


[2 * 
RER RSENTRSHESINHNSESERHAESE RE IE IESHÄEAESE SITES EN AR NIEHAEHE 
80 NOTHING N 


OULOHE 
OOIOHE 
DOLUYE 
VOLOYE 
O01O4E 
VO1OLE 
VOLOHE 
GOLOLE 
JOLOKE 
ONLÖLHE 
OULULE 
GOLOYE 
OO1O4E 
VOOLCHE 
OOLOUE 
VLOLOLE 
VOl1GLE 
VUINLKE ROOUOHNDO 


0 ERRURS 


een 


aA 


FUNCTIONKEYS * 
SHIFT ” 
CAPSLUCK " 
CONTROL »* 
HOME # 
INSERT 4 
UNDOO = BREAK * 
HELP = VIDEOP TO SCREEN O ® 
LOCAL ” 
ALTERNATE ” 
ETRL + CURSOR LEFT SCROL * 
CTRL + CURSOR RIGHT SMOOTH SCRO* 
SHIFT + UNDD = ABGRT * 


CTRL + CURDOUN = CHANGE CHAR SIZE * 
SHIFT + HELP =VIDEOP TO LAST SCREEN« 
* 


RENTEN ERNST BHESSISIE HIERHER RENNER NETTER RER HET 


END 


End of Implementation Slice #* 
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Verzögerte Einplanung B-II-2 
VI: (Virtual Input) A-II-12 
Virtueller Prozessor E-IV-T£f. 
vo: (Virtual Output) A-II-12 
Voreinstellung C-III-7 


Warmstart-Initialisierungsceode E-VII-13 

Warteschlange A-I-9, A-II-1£f., A-II-9, E-I-23, E-I-60, 
E-III-1£. 

WHEN B-II-64 

Winchester A-II-12, E-II-1£f. 

Working Directory A-I-2, B-II-7, B-II-38, B-II-46, 
B-II-51 

Workspace E-I-47, E-I-62£. 

WRITE C-III-21 


X (Steuerelement) C-III-16 
X-on/K-off A-II-1£f. 

XC: A-I-7, A-II-13, B-I-1£. 
XIO E-III-1£. 


Zeichen C-III-6 
Zeichenketten-Konstante C-III-8 
Zeigervariable C-I-7 

Zeit-Einplanung C-III-10 
Zeitdauer-Konstante C-III-7 

Ziffer C-III-6 

Zufallszahlen C-III-25 
Zugriffsausdruck C-III-8 

Zuweisung C-III-8 

Zyklische Einplanung B-II-3, C-III-10 


RTOS-UH/PEARL 
auf VIMEbus und ECB 
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Sie kennen jetzt RTOS-UH und PEARL. 
Für den industriellen Einsatz von PEARL empfehlen wir Ihnen 
industrielle Bussysteme. 
Auf VMEbus mit der CPU68000 und auf ECB mit 68008. 
Oder als Einplatinencomputer für ganz kleine Lösungen. 
ELZET 80 liefert seit 1978 modulare 


Mikrocomputersysteme. Weit über 
100 Baugruppen für alle Anwendungsbereiche 


ELZET 80 gehören zu unserem Standardprogramm. 
Für Spezialanwendungen fertigen wir 
MOCOMputer EmbH.E 20. RG kundenspezifische Lösungen. Vertrauen Sie 


Wilhelm-Mellies-Straße 88 
D-4930 Detmold 18 unserer Erfahrung! 
Wir senden Ihnen gerne Kataloge. 


Tel.05232-8131-Tx. 931473 eizetd 


Zum Beispiel: 12 ADA 


ELZET 80 
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ELZET 80 - 


Mikrocomputer Gmbil & Co. KG 
Wilhelm-Mellies-Straße 88 


D-49306 Detmold 16 


Tel, 05232-8131-Tx. 931473 elaet d 


Zu VMEbus, ECB und RTOS 
beraten Sie gerne auch unsere 
Ingenieurbüros 

(mit Lager): 


ESmed GmbH 
Fehlerstraße 5 
1000 Berlin 41 
Tel. 030/851 1900 


MEK GmbH 
Düppelstraße 71 
2300 Kiel 1 

Tel. 04 31/8042 20 


GMS mbH 
Marquardsträße 62 
6000 Frankfurt 90 
Tel. 069/788752 


Meditec-Data GmbH 
Villastraße 9 

7000 Stuttgart 1 

Tel. 0711/2831 03 


PTL GmbH 
Schulstraße 28 
8000 München 19 
Tel. 089/ 169977 


Schweiz: 
Bernhard-Elektronik 
Aarauer Straße 20 
CH-5734 Reinach AG 
Tel. 064/716944 


— 12-Bit-A/D-Umseltzer 

— 12 Bit Linearität 

— 16 0. 32 Eingänge 

— Wahlweise 10/15/25 us 
max. Umsetzzeit 


— Eingangsbereiche: 
0..10V, #5V, £10V 


— Int. o. ext. Triggerung 
— S&H mit 3,5 us 


— Vier 12-Bit-D/As 

— Spannungsausgänge: 
0..5V, 0..10V, 
+2,5V, #5V, 10V 

— Max. Lin.fehler 1/2 LSB 


Einzelpreis komplett 


A/D mit 25 as und 
4 Kanäle D/A: 


2277,72 DM 
(1998,— DM +14 % MWSt.) 


